Pt  s. 

Canarias 16,5 pts. 
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nform  tica 

LO UL MO EN DISPOSITIV  S IE '.N " ,DA t : GRA CO 
PARA AMSTRAD, COM. ODO'.E C 
La primera tableta grca, de bajo costo, en ofrecer la duraci6n y prestaciones requeridas pot las 
aplicadones de negodos, industria, hogar y educad6n. Es pequefia, exacta y segura. No necesita 
ajustes ni mantenimiento preventivo. GRAFPAD II es un producto finico que pone la potencia de 
la tecnologia modema bajo el control del usuario. 
ESPECIFICACIONES 
RESOLUCION: 
. -" ........... TASA DE SALIDA: 
pot 
............... INTERFACE: 
paralelo. 
P =,ljO A MANO AI_ZAD DISEIqO DB ARQUITEC ' -' borde superior izquierdo o 
SOII'WARE DE ICONOS ,  a -, : D D. seleccionable. 
DIMENSIONES: 
30x260x 12 mm. 

COMBINA EN UN UNIC.O DISPOSITIVO TODAS LAS 
PRESTACIONES DE LOS INTENTOS PREVIOS DE 
MECANISMOS DE ENTRADA DE GRAFICOS. LAS 
APLICACIONES SON MAS NUMEROSAS QUE EN LOS 
DEMAS DISPOSITIVOS COMUNES E INCLUYEN: 
selecci6n de opciones • entrada de modelos • recogida de 
da os • ," .- o 16gico • ,isefio de circu' s • creaci6n de 
im,'lgenes • ,Imacenamtento de imogen- • ecuperaci6n de 
imigenes • disefio para construcci6n • .' .D. diseflo asistid, 
por orden,, r) • ihtstracin de texts., • "ue,.s, • si .- ,- 
muestras • educaci6n • ,isefio PCB. 

DISPONIBLE AMSTRAD: 
CASSETTE .... 23.900 plas. 
DISCO ............ 25.900 ptas. 
OVA NO INCLUIDO) 
• ACIL DE USAR. 
• TRAZADO PCB. 
• C.A.D. 
• AREA DE DISEO DIN A4. 
• I, LOR EN ALTA 
' ESOLUCION. 
• USO EN HOGAR Y 
EGOCIOS. 
• .ARIEDAD DE PROGRAMAS 
 ISPONIBLES. 
•  IBUJO A MANO ALZADA. 
• D  qu, DECIRC 

DE VENTA EN LOS MEJORES COMERCIOS DE INFORMATICA 
Si Vd, tithe alguna dificultad para obtener la tablcta grfifica, puedc 
dirigirse a: 
• v, . Isabel II, 6 -8  
Ofites ,,,. 455544-455533 
Informtica TL4ex 
20011 SAN SEBAST' N 

ONDICIONES ESPECIALES PARA DISTRIBUIDORE 
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Primera 
piano 
El nuevo especial de microman/a, a punto, 

,, Primeros 
posos 
Segunda porte de/exhaustiva estudio de la sentencia 
PRINT USING. Recordemos que esta arden es 
abso/utamente esenc/a/ para dar un /ormato serb y 
profesbna/ a /as textos que aparecen en anla//a. 

Serie Oro 

Domin5 es un programa que no neces#a ni de 
presenlaci6n ni de comenlario. Baste con decir que el 
ordenador juega muy bien y que /as grSficos de/ 
programa son excelentes. 

Utiles 
del progromodor 

Abrimos una nueva secci6n dedicada a los 
programadores, con idea de suministrarles programas 
o tcnkas de uti/idad decisivas a/a hora de desarro/lar 
software. Comenzamos con un plato fuerte. 
COMPRE$$,BA$ comprime un programa Basic, 
eliminando todo b superfluo y hacindole correr mds 
deprisa en menos memoria. 

Presentamos un programa que permite hater capias 
de seguridad de cinta a cinta. 

Mr. Joystick ' I.. 
AnaDamos esta semana un /uego que podr/amos 
tlamar de acci6n, par to centetleante velocidad en la 
que se desorrolla: el Ping Pongee, 

ProgromAcci  n 

Revisomos /as 6/limos tcnicos, o cosi, que has 
quedan par estudiar para asi sacar el m6ximo partido 
de/as [acu/ades sonoras de/Amstrod, 



I ) Noestamos para g 

LO NUESTRO ES HACER BUENAS GESTIONES 

Para AMSTRAD 8256 y 6128 
CONTROL DE ALMACEN + I.V.A. 
Sepa Io que tiene, su costo, proveedor, totales por articulos y general. Pida cuantos 
resultados quiera de su explotaciSn, por producto, proveedor, etc., etc. (15.300 ptas. 
incluido I.V.A.) 
CUENTAS PROVEEDORES-BAN COS-CLIENTES 
Sencillo control de cuentas separadas (cuantas quiera), con Io que eliminar 
el problema diario de la pequeSa empresa con buen movimiento (8.600 ptas. 
incluido I.V.A.) 
RECIBOS 
Programa que resuelve el mecanografiado interminable. Asociaciones, co- 
munidades, colegios, clubes, podr&n hacer los recibos normalizados con 
domiciliaci0n bancaria y posibilidad de correcciones. (18.300 ptas. incluido 
I.V.A.) 
CLIENTES 
Datos actualizados, etiquetas correspondencia. PeticSn por 5 campos 
los resOmenes (8.600 ptas. incluido I.V.A.) 
FACTURACION 
Numeraci(n correlativa autom&tica, fecha autom&tica, res0menes 
clientes y totalizaciones (15.300 ptas. incluido I.V.A.) 
PRESUPUESTOS 
Presupuesto sencillamente cuanto quiera y transf6rmelo en factu- 
ra de forma sencilla. Posibilidad transformaciones y reformas. 
(18.300 ptas. incluido I.V.A.) 

HACEMOS PROGRAMAS A MEDIDA 

Encargos Ilamar o contactar con Juan Luis Ruizo Tno.: 474 55 32 

31MPACTOsS3 
NOVEDADE 

PEDIDOS, TELEFONO, CARTA O TELEX 
REEMBOLSO SIN GASTOS. 
ESPECIAL A COLABORADORES 
RESTO DE ESPAA 

. llk_ inform6tica 
I .,111 I|1 GROTUR, $.A. I 
i111 I o, JA,ME EL OONOO,STADOR. 2,1 
I llilr IIIIII 28045 MADRID. Tno. 474 55 00 
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COMPONIEND * 
UN CPC 

MUSIC FILES, editado por la corn- 
pavia inglesa Rainbird, constituye 
uno de los programas m6s comple- 
tos de mOsica, que hoy dia existen 
para Amstrod. Distribuido por SER- 
MA en Espaa, resulta agradable de 
usar por su cuidada esttica, y pre- 
sentaci6n. Todo el programa se de- 
sarrolla a base de menOs selecciona- 
dos desde el teclado de funci6n, que 
se distribuyen en pantalla pot medio 
de ventanas superpuestas. 
Las posibilidades son muy variadas 
y van desde interpretar mOsica ya 
grabada, hasta la composici6n m6s 
profesional, con todos los garabatos 
musicales que esto implica. Una vez 
compuesta la mOsica, es posible mo- 
dificar la velocidad de ejecuci6n, el 
tono y acompaar la melodia con el 
acorde que deseamos. 
Un buen programa que har6 las 
delicias de los mel6manos, y sobre 
todo de aqullos, que como yo, no 
tienen ni idea de qu6 es esto de com- 
poner mOsica y quisieran hacerlo. 
Serma se encuentra en: BFavo Mu- 
rilla, 177, 2. ° C. Tel. 733 73 11. 

LA PIRAMIDE 

DEL FARAON 

ditado por QLS y 
distribuido por esta misma compaia 
junto con ABC, Fara6n puede encua- 
drarse dentro de los juegos de la m6s 
pura linea conversacional. La misi6n 
consiste en construir, por encargo del 
sumo fara6n, una pir6mide que al- 
bergue sus huesos durante el eterno 
descanso. Para esta magna empre- 
sa dispondremos de casi 5.000 escla- 
vos y una cantidad de dinero, que 
tendremos que administrar sabia- 
mente si no queremos que nuestros 
sirvientes mueran de hambre. A me- 
dida que transcurre la construcci6n, 
habremos de enfrentarnos con mOl- 
tiples problemas, guerras, rebeliones 
y fiestas que har6n menguar nuestro 
capital y aumentar6n o disminuir6n 
la moral de nuestros hombres. 

En el mes de mayo 

/HI(ROMANIA 
IANZA UN NUMERO 
U Y £$P£CIA 

PRIMERA FERIA AMSTRAD 

Con enorme saris- 
facci6n hemos recibido la noticia de 
que Indescomp va a organizar en el 
transcurso de la segunda quincena 
del rues de mayo, la primera feria 
Amstrad en Espaa, para poder 
ofrecer al pOblico la gama de pro- 
ductos de esta marca. 
La pretensi6n de Indescomp es 
agrupar bajo un mismo techo, aOn 

sin especificar, a todas los compa- 
ias, nacionales y extranjeras, que 
de alguna manera tienen relaci6n 
con nuestro ordenador. Software, 
Hardware y papel por y para Ams- 
trod en una feria que promete ser 
no ya s61o la primera, sino el comien- 
zo de una sana costumbre, que si 
bien arraigada en el extrajero, aOn 
no ha hecho mella en nuestro pais. 
Bien por Indescomp y nuestro 6ni- 
mo a todos aqu611os que trabaian 
con el prop6sito de aumentar los po- 
sibilidades de Amstrad. Alli nos 
vemos... ! 

MICROMANIA, nuestra hermana 
mayor que como sab6is se dedica 
mesa rues a analizar los meiores jue- 
gos para todos los ordenadores, va 
a lanzarel pr6ximo mes de mayo un 
especial, al precio de 400 pros., de- 
dicado por entero a una de las sec- 
ciones que m6s le caracterizan: Po- 
tas Arriba. 
Pokes y mapas a todo color de los 
iuegos m6s populares, Rambo, Star- 
quake, Cauldron, Atic Atac, Tir Na 
Nog... y asi hasta un total de 13, se 
desarrollan a Io largo de 84 p6ginas 
con un gran despliegue de fotos e 
instrucciones para resolverlos m6s f6- 
cilmente. 

,¢ICOHOBBY AMSTRAD 5 



UNA PLANTILLA 
MUY NUMERICA 

Yo conocemos la forma de ffabricar; una plantilla adecuada 
para poder escribir una variable literal o cadena de texto con 
un formato determinado. Adem6s, nuestro ordenador posee 
la habilidad de poder hater esto mismo con ndmeros. 

n esta ocas[6n vamos a 
intentar explicar c6mo es posible definir la 
plantilla del formato queen cada momento ne- 
cesitamos. No olvide que PRINT es la instruc- 
ci6n que usa el lenguaje Basic del Am,trad 
para hablarnos y que, par tanto, es necesa- 
rio Ilegar a dominarla para <cuielar al m6- 
ximo nuestra comunicaci6n. 
Vamos al grano. Para escribir -o PRINT- 
un texto en la pantalla de manera que apa- 
rezca componiendo lineas de elementos que 
posean unas caracteristicas que nosotros pre- 
viamente hemos fijado, utilizamos la instruc- 
ci6n: 
PRINT USING 
$61o nos falta aadirle, o rnejor definir, la 
plantJlla a la que ha de amoldarse la es- 
critura. Por ejemplo ya no debe representar- 
le ninguna dificultad hacer que el ordenador 
haga aparecer en la pantalla los 3 primeros 
caracteres de cualquier palabra. 
Se puede imaginar que para ello vamos a 
tener que hacer uso del comando PRINT 
USING, pero en este caso, ,qu 
tendremas que utilizar? 
Teclee: 
PRINT USING " \ \ "; casa 
PRINT USING " \ \ "; <chiripitifl6utico 
y si no nos hemos equivocado el ordenador 
escribir6 las tres primeras letras 
caracteres- de cada una de estas palabras. 
Pero puede preguntarse: 
platilla empleaHa? Observe atentamen- 
te la cadena de caracteres especiales que he- 
mos colocado a continuaci6n de PRINT 
USING: 
Con este formato le estamos diciendo al 
Amstrad que Io que va a escribir Io ha de 
hacer solamente con el n0mero de caracteres 
contenidos entre las comillas: as/Io determi- 
na el car6cter especial" \ ". O sea que, en 
este caso dos barras inclinadas hacia la iz- 

6 ctoo AMSTitAD 

quierda m6s un espacio en blanco--tres ca- 
racteres en total. 
Y pot eso es por Io que las dos instruccio- 
nes que ha escrito anteriormente, hacen que 
se impriman los tres primeros caracteres de ca- 
da palabra. 
Y, ,existe la posibilidad de emplear 
esto con los nOmeros? Si queremos reser- 
var cuatro espacios, por eiemplo, para escri- 
bir alli cualquier n0mero, es v61ida esta plan- 
tilla. 
Teclee: 
PRINT USING" \ \"; 12 
y vea Io que ocurre une vez haya pulsado RE- 
TURN. 
Le suena de algo el mensaje: 
Type mismatch 
Claro, es justamente el que acaba de apa- 
recer en la pantalla. Nos est6 diciendo que hay 
un error en algOn sitio. 
Este mensaje de error significa que la plan- 
tilla que hemos definido, no est6 de acuerdo 
con el tipo de dato que va a formatear: espe- 
ra una cadena de caracteres y nosotros le es- 
tamos dando un nOmero. 
Bueno, pues no es v61ida, iQu desilusi6n! 

il16s plantillas! 
Pero no se preocupe, hay muchas plantillas 
m6s. Nuestro mstrad est6 provisto de ca- 
si todo. Sigue queriendo reservar cuatro es- 
pacios para escribir un n0mero? Escriba: 
PRINT USING "#####"; 12 
y ver6 c6mo Io consigue. 
En esta ocasi6n el n0mero no va a estar <pe- 
gado al horde de la pantalla, bueno, o casi 
pegado (recuerde el espacio que el ordena- 
dor guarda para el signo). Aparecer6 un po- 
co m6s dentro. 
Si cuenta el nOmero de espacios que hay an- 
tes del n0mero 12, comprobar6 que no le he- 
mos engaado, y queen efecto hemos desti- 
nado un ngmero determinado de <celdas de 
car6cter, o huecos destinados a ser ocupados 
por una letra o un nOmero, para que conten- 
gan el 12: hay dos espacios en blanco y dos 
cifras=cuatro caracteres como queriamos. 
Luego ya hemos encontrado la plantilla que 
necesit6bamos. 
PRINT USING ####; 12 



le est6 indicando al ordenador que escriba el 
nOmero 12 en la pantalla y que adems Io ha- 
ga reservando para ello tantas posiciones co- 
ma caracteres especiales < # encontremos en- 
tre las comillas -cuatro en este caso. 
Haga distintas pruebas cambiando la can- 
tidad de <#. Si teclea: 
PRINT USING ######; 12. 
el ordenador guardar6 6 espacios para escri- 
bir all/nuestro ya viejo conocido n0mero 12. 
Haga todas las variaciones que se le puedan 
ocurrir. 
Pero esta plantilla no s61o nos sirve para im- 
primir nOmero formateados sino que tambin 
podremos utilizarla con variables num6ricas. 
Introduzca en la memoria del ordenador el 
Programa I y Io comprobar. 

Input inteligente 
Es muy sencillito pero va a servirnos perfec- 
tamente para afianzar los conceptos que te- 
nemos sobre este formato num6rico. 
Simplemente est6 formado por una instruc- 
ci6n INPUT, mediante la que el micro nos va 
a pedir un dato num6rico y Io va a guardar 
en la variable mmero -linea 30. 
Fijese en el comando PRINT USING de la 
50. La planlilla usada en esta ocasi6n es 
<# ####; o sea, que hemos especificado seis 
posiciones paa contener el nOmero que vaya- 
mos a escribir. 
Pero ahora no vamos a imprimir un n0me- 
ro fijo o constante, sino el valor que est6 al- 
macenado en la zona de memoria, que el or- 
denador ha reservado para la variable <nO- 
mero. Es otra de las posibilidades de PRINT 
USING. 
La linea 60 hace que el micro d6 un salto 
atr6s a la linea 30 y nos pida un nuevo valor. 
Eiecute el Programa y dele a la variable nO- 
mero todas las cantidades enteras que se le 
ocurran. Haga sus propias pruebas y anote 
las conclusiones sacadas de cada una de elias. 
Es una buena forma de aprender. 
Obsrvese que siempre que introduzcamos 
datos correclos, el Amstrad nos va a reser- 
var las seis posiciones y olli va a escribir el 
mero. Y siempre nos guarda los mismos espa- 
cios. 
Intentemos otra prueba. Teclee ahora, bue- 
no, cuando al ejecutar el Programa I se Io pi- 
da el ordenador, un n0mero de m6s de seis 
cifras aver qu pasa. Nos dor error? 
Es evidente que si el Amstrad nos reser- 
va 6 posiciones para escribir un n0mero y no- 
sotros, con mucha mala idea, le vamos a dar 
uno de 7, 8 o m6s cifras, no va a poder impri- 
mirlo por la sencilla raz6n de que alli no le ca- 
be. ;,Qu har6 entonces? 
Eche un vistazo a la pantalla. Alli aparece 
el nOmero tal como nosotros Io habiamos es- 
crito -con el mismo n0mero de cifras- pero 
ahora precedido del simbolo <°/o. Analicemos 
qu6 puede significar este caracter especial. 
<<°/0 es la forma que tiene el Amstra de 

decirnos que algo no funciona, que la planti- 
Ila de formato que hemos elegido no es del 
todo v61ida: falla[ 
Y caro que fa a. Hemos especificado 6 po- 
siciones para contener un n0mero de 7 o m6s 
cifras, luego el n0mero es demasiado grande 
como para entrar el formato definido. 
Pero sin embargo, el ordenador Io ha escrito 
con todas sus cifras, no Io ha cortado ignoran- 
do las que siguen a la sexta. Inform6ticamen- 
|e hablando se dice que no Io ha truncado, 
sino que Io escribe entero. 
Ahora bien, es eficiente y nos avisa del fa- 
Iio por medio del signo <°/0. Por |odo esto de- 
cimos que la plantilla no es del todo v61ida: 
el nOmero aparece en la pantalla tal como no- 
sotros Io tecleamos, pero el ordenador nos avi- 
sa de que no Io hace como hubi6ramos desea- 
do. iA corregir toca! 
Intentemos hacer otra prueba. Ejecute el 
Programa I otra vez y meta como dato un 
mero fraccionario. La variable <n0mero va 
a contener en esta ocasi6n un ngmero que no 
es entero. 
;,Qu plantilla hemos diseado? 
Pues una que nos va a reservar 6 espacios en 
la pantalla para alli imprimir un n0mero en- 
tero de seis cifras como m6ximo. 
Observe ahora el resultado de esta ejecu- 
ci6n. Aparece un nOmero entero y las cifras 
decimales han sido despreciadas. 
Si hemos querido escribir solamente la par- 
te entera nos puede servir esta plantilla, pero 
si queremos que nos aparezcan los decimales 
ha Ilegado el momento de poner en funciona- 
miento nuestra mente e intentar definir otro 
formato que nos trate tambi6n la parte deci- 
mal del n0mero. Y siempre Ilegamos a la mis- 
ma pregunta: ;,C6mo podemos hacerlo? 
Veamos. ;,Cu6ntas cifras enteras que- 
remos que nos aparezcan? Por eiemplo 
seis, como antes. Y, ;,cu6ntos decimales? 
Creemos que con 3 nos puede valer. 
Escriba ahora en un papel un nOmero com- 
puesto por seis cifras enteras y 3 decimales. 
Seria algo parecido a: 613258.346 
Sustituya ahora cada cifra, tanto entera co- 
mo decimal, por el simbolo que especificaba 
una posici6n para un digito: <#. Convertire- 
mos el n0mero en: 
#####.### 
es decir, espacio para 6 cifras enteras, el punto 
decimol seguido de tres posiciones para otras 
tantas cifras decimales. Y si todo esto Io mete 
entre comillas: 
"######. ###" 
obtendr6 la plantilla del formato que estamos 
buscando. 



Par tanto, el punto <. qua hemos colocado 
en un especificador de formato qua le indica 
al ordenador la posici6n del punto decimal. 
Sustituya la linea 50 par: 
50 PRINT USING "######.###"; n0mero 
en el Programa I y ya nos admitir nC, meros 
decimales, o no enteros y nos Io imprimir6 re- 
servando para cada ngmero 6 posiciones pa- 
ra las cifras enteras y 3 para las decimales se- 
paradas par un punto. 
Entretngase ohora en teclear el Programa 
II y analicelo. No le resultar muy dificil. 

Cifras encolurnnadas 

Su misi6n va a consistir en mostrarnos c6- 
mo quedan alineados todos los puntos deci- 
moles, 
Nos va a pedir cinco nOmeros reales -qua 
pueden set enteros o con decimales- repitien- 
do la instrucci6n INPUT tantas veces coma se 
ejecute el cuerpo del bucle. 
Despu6s el programa nos va a sacar en pan- 
talla cada uno de los n0meros con el formato 
qua hemos definido -linea 110. 
La plantilla es la misma qua empleamos en 
el ejemplo anterior. O sea, seis enteros y el 
punto seguido de tres cifras decimales. 
EjecOtelo y compruebe par sus propios me- 
dias qua no le hemos dicho ninguna mentira 
cuando le indicamos que los puntos decima- 
les salen alineados. 
Pasemos aver otro formato. En alguna oca- 
si6n puede qua necesitemos separar las cifras 
enteras con comas en grupos de 3. Habr vista 
infinidad de veces un n0mero escrito de la for- 
ma siguiente: 341,115.123 
Este m6todo se emplea generalmente para 
facilitarnos la lectura y comprensi6n de un n0- 
mero sabre todo cuando es muy grande y par 
Io tanto, est6 compuesto par muchos digitos. 
(Si/e extrafa /a punuaci6n, recuerde clue los 
ordenadores son creacianes inglesas y ClUe en 
este idioma la coma indica mi//ar y el #unto 
decimal). 
Como nuestro Amstrad conoce esta cues- 
ti6n, nos va a proporcionar la herramienta pa- 
ra poder definir una plantilla qua nos permi- 
to imprimir cualquier nOmero con sus cifras 
agrupadas. 
Para ello, empleamos el especificador de 
formato <, colocado justamente delante del 
punto decimal. Es el 0nico lugar donde Io po- 
demos situar: antes del punto. Con 61, como 
dijimos antes, especificamos al ordenador qua 
agrupe de tres en tres los digitos situados a la 
izquierda del punto decimal y los separe par 
comas. 
Sustituya la linea 110 del Programa II par: 
110 PRINT USING "######,.###"; nOme- 
ro (contador) 
y vea qua cuando se ejecute el programa pro- 
ducir6 los resultados qua hemos buscado. 
Pru6belo. 
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Hay que tener en cuenta una cosa. La co- 
ma, adem6s de decirJe al ordenador que se- 
pare los cifras enteras en grupos de 3, tam- 
bin especifica una posici6n. 
"####. ##" 
es una plantilla, que permitir6 reservar 4 es- 
pacios para digitos enteros -porte izquierda 
del punto- agrupados de tres en Ires y sepa- 
rados por una coma y guardar6 dos huecos 
para otros tantos decimales. Recuerde, la 
se considera tambi6n como una posici6n. 
Y no son 6stos todos los formatos. Puede que 
senos ocurra rellenar con asteriscos los espa- 
cios libres que nos quedan a la izquierda del 
n0mero. Tambin tenemos una plantilla para 
conseguirlo. 
Basra con aadir dos asteriscos al comien- 
zo de la cadeno que da forma a la plantilla 
de formato y punto. 
Le vamos a hacer trabajar un poquito m6s. 
De nuevo cambie la linea 110 del primitivo 
Programa II por: 
110 PRINT USING "**####.###"; n0me- 
ro (contador) 
y ejec0telo ,Hemos conseguido Io que 
quedomos? iSi, c6mo no! Todos los espa- 
cios libres est6n ahora ocupados por asteris- 
COS. 
Como ocurre con el especificador ,, en este 
caso tambi6n <** nos esl6 definiendo la po- 
sici6n -o mejor las dos posiciones- reserva- 
das a otros tantos caracteres. No eche en <sa- 
co roto esta advertencia ya que si no Io con- 
sidera escribir6 sus n0meros favoritos con un 
formato err6neo. 
Podemos hablar ahora de dinero. La ma- 
yoria de los ordenadores est6n todavb pen- 
sados para la parte del mundo de habla in- 
glesa y por tanto de momento s61o dispone- 
mos de plantillas que nos asocien cantidades 
a los monedas inglesas o de EE. UU. -libras 
o d61ares. 
Vamos a intentar que antes de cada nOme- 
ro aparezca el signo correspondiente a una 
de estas dos monedas. Volvamos de nuevo a 
nuestro superutilizado Programa II. 

Por <<en6sima vez sustituya la linea 110 pot: 
110 PRINT USING "######. ###"; nOme- 
ro (contador) 
o pot: 
110 PRINT USING "SS####.###"; nOmeo 
ro (contador) 
y ejecute el Programa. .Qu ocurre? 
SegOn la sustituci6n que hagamos, apare- 
cer6n en la pantalla coda uno de los n0meros 
precedidos por el signo de la moneda que ha- 
yamos elegido. 
NOTA: Tanto SS coreD ## tambi6n definen 
dos posiciones reservadas para ser ocupadas 
por algOn car6cter. No Io Divide. 
,Por qu no volver a rellenar los es- 
patios vac(os a la izquierda con as- 
teriscos? Vamos a ello. Los formatos que em- 
plearemos ahora ser6n: 
,,**####,, 
Y 
""*S ###" 
que actuaron como los especificadores 
y <<## en un caso o bien como <** y <<SS 
en otro pero esta vez combinados, es decir, 
con asteriscos a la izquierda del nOmero y ade- 
m6s con los signos # o S. Es Io que queriamos, 
no? 

Un Itlmo cambio 

Si le insinuamos que cambie una linea por .... 
en el Programa II, inmediatamente habr6 pen- 
sadoen la 110, !otra vez! 
Teclee la siguiente variaci6n: 
110 PRINT USING .... S###"; nOmero 
(contador) 

PRINT USING "**####"; nOmero 
(contador) 
Haga correr de nuevo el programa y le roDS- 
trot6 en la pantalla los efectos de este nuevo 
formato definido, iAIgOn dia podremos hacer 
Io mismo con nuestra moneda! 

Y otra vez creemos necesario decir que 
<<*'S y <** # tambiSn nos van a especificar 
tres huecos donde tenemos la posibilidad de 
escribir un car6cter. 
,Nos metemos ahora con los sig- 
no':? Sobre todD en alg0n problema matem6- 
rico o de contabilidad podemos necesitar que 
nos aparezcan a la izquierda o a la derecha 
de una cantidad. Pues bien, incluy6moslos en 
el formato. 
"+ ######.###" 
es una plantilla que nos va a guardar espacio 
para poder escribir 6 digitos en la parte ente- 
ray 3 en la porte decimal, pero en esta oca- 
si6n va a ir precedido de su correspondiente 
signo ya sea el + o el -. 
Si introducimos un signo + al final de la 
plantilla: 
"######.###+" 
al emplear un PRINT USING con ella ahora 
el signo estar6 colocado al final del n0mero 
(independientemente que sea + o -). 
;.Qu ocurre si ahora en vez de + 
incluimos en la plantilla el -? Confe- 
saremos una cosa: el - s61o podremos colD- 
carlo al final. 
"######.###-" 
serb el formato ahora distinto. Le dice al or- 
denador dos cosas: 
- Si el nOmero es positivo, que deie un es- 
pacio vacio a su derecha. 
- Si es negativo, el Amstrad escribir6 el 
nOmero con su formato correspondiente y le 
aadir6 el signo menDs a la derecha. 
Y, ic6mo no! Nos faltaba proponerles que 
hicieran un ligero cambio en la linea 110 del 
Programa II. Pues, 6nimo, h6galo!, pero aho- 
ra inc uya estas dos O timas plantillas usted mis- 
roD. No le vamos a poner la <muestra. 
Es todD por el momento. Emplearemos un 
formotm tradicional para despedirnos. 
Sin otro particular le saluda atenta- 
mente. 
iHasta pronto! 

PROGRAMA$ 

10 REM program I 
, J CLS 
30 INPUT "esribe un numero: ",hum 
er 
40 PRINT "123456 espacios" 
0 PRINT USING "######";numero 
60 80  ":'" 
10 REM programa I I 
20 CL S 
0 IM_numero (5 

40 contador =0 
50 WHILE contador<5 
60 INPUT "re, lea un numero: - numer 
o (contador) 
70 ontador=contador+l 
80 WEND 
90 ontador=O 
I00 WHILE contador<S 
II0 PRINTUSINC "g#####.###"numero 
(ontador) 
120 contador=ontador+l 
130 WEND 

,COOY AMSTRAD 9 



BUC£ESANIMADOS 

La semana pasada vimos que un bude repite una serie de 
instrucciones pot un determinado nOmero de veces, las que nosotros 
de¢idimos. Las lineas ¢omprendidas entre FOR y NEXT son Io que 
Ilamamos cuerpo del bucle o instrucciones que se repiten. 

, rirneros 
re*, asos 

amos a resumir Io 
que ya sabemo,s sobre bucles para 
continuar profundizando en su utili- 
zaci6n. 
El n0mero de veces que el bucle gi- 
ra est6 determinado por la <varia- 
hie de controh, que comienza te- 
niendo un contenido igual al valor 
inicial y se incrementa --o decremen- 
ta cuanda el n6rnero que siga a STEP 
sea negativo-- coda vez que el pro- 
grama Ilega a NEXT. 
El bucle termina cuando el valor de 
la variable de control se salga del 
rango establecido por los valores ini- 
cial y final. 
Las instrucciones contenidas entre 
FOR y NEXT pueden ser cualquiera, 
asi que vamos a ampliar las posibili- 
dades del bucle, haciendo que el 
cuerpo del mismo sea otro FOR... 
NEXT. Es Io que Ilamamos <<bucles 
anidados. 
Su funcionamiento es exactamen- 
te igual a Io que ya sabemos. Cada 
vez que se repite el bucle exterior, el 
interior se ejecuta completamente 
hasta totalizar su nOmero de repeti- 
ciones. Pero vamos a verlo gr6fica- 
mente con el programa 1. Observe 
que cada uno de los bucles Ileva su 
propia variable de control. 
No se deje impresionar por los bu- 
cles anidados, parecen mucho m6s 
complicados de Io queen realidad 
son. La clave de todo est6 en asumir, 
que por cada ciclo sencillo del exte- 
rior, el interior completa todos los su- 
yos. 
Para mayor claridad aada la 
guiente linea al programa: 
55 PRINT ¢¢EXTERlOR=exterior, 
dNTERIOR =interior 

I0 oo AMSTRAD 

Mientras estuvimos con el progra- 
ma 1 debimos sehalar que no se ne- 
cesita poner la variable de control 
detr6s de NEXT. El Amstrad est6 ca- 
pacitado para mantenerse al tanto 
de los cosas, pero y nosotros? 
Le recomendamos que los ponga 
siempre, porque aaden una mayor 
claridad a la hora de seguir el pro- 
grama. Aunque funcione correcta- 
mente sin elias, nosotros podemos 
terminar hechos un Iio. 

M6s all6 de dos 
bucles anidados 

Hasta aqui s61o hemos anidado un 
bucle FOR... NEXT dentro de otro. 
Es perfectamente v61ido tener 3 o 
m6s bucles anidados, consiguiendo 
que nuestros programas sean mucho 
m6s flexibles y poderosos. Veamos 
un ejemplo en elque hay m6sdedos 
bucles anidados. Aada al progra- 
ma: 
45 FOR intermedio=l TO 3 
47 PRINT TAB (5) Este es el bucle 

CI REM PROGRAMA I 
20 FOR Py. tPrr=1 TO 3 
30 PRINT"Este es el bucle xterlor" 
40 FOR interior 1 TO 3 
50 F'RIHT TB<lO)"Este es el bucle  
60 NXT internr 
70 NEXT e:,terir 

tO REH PROGRAMA If 
20 FOR longifud I TO 10 
3C; FOR lnea=1 TO Iongitud 
40 PRINT"i" : 
50 NEXT ]inea 
60 PRIN 
70 NEXT longtud 

10 REH F'ROGRAMA ] I I 
20 FLS 
30 FOR lnea i TO 10 
40 FOR longitud-1 0 lnea 
50 [O[ATE 11-]ongtud.line 
60 PRINT" " 
70 NEXT Iongtud 
80 NEXT lnea 

intermedio 
intermedio 
75 NEXT intermedio 
y estas tres 0nicas lineas, le mostra- 
r6n la enorme potencia de esta t6c- 
nica, al ver el incremento de los re- 
sultados producidos. 
Una cosa, debemos ser muy cuida- 
dosos cuando manejemos bucles ani- 
dados, sobre todo en dos puntos: 
-- Los NEXT deben ir colocados 
en Su orden correcto ya que si no nos 
exponemos a confundir al Amstrad 
que nos dedicar uno de sus rnejo- 
res mens'ajes de error. 
-- Vigilar los limites de la variable 
de control para que no provoquen 
un nOmero mayor o menor de ciclos 
que los deseados, iOjo con elias! 
Habtando de variables, podemos 
hacer que el n0mero de veces que se 
repite coda vez el bucle interior de- 
penda directamente de la variable 
de control del exterior. 
Basta, por ejemplo, con poner co- 
mo limite superior de la que contro- 
la el bucle interior el contenido que 
tiene en cada vuelta ta del exterior. 
De este modo, adem6s de estar 
anidado, el bucle exterior controla al 
interior. El programa 2 es bastante 
revelador en este sentido. Est0dielo 
detenidamente. 
Pero adem6s estos bucles pueden 
hacerse con valores decre¢ientes. 
V6alo cambiando la linea 20 del pro- 
grama 2 por: 
20 FOR Iongitud=10 TO 1 STEP--1 
para realizar el mismo tri6ngulo pe- 
ro al revs. Y tambi6n hacer con ellos 
una imagen <(reflejada en un espejo>, 
como Io demuestra el programa 3. 
O volverlo al rev6s cambiando los 
lineas: 
30 FOR linea=10 TO 1 STEP --1 
50 LOCATE 11-1ongitud, 11-1inea 
Los bucles anidados no son el uso 
m6s importante que podemos darle 
a nuestro Amstrad, pero le ser6n 
muy 0tiles si los aplica en sus propios 
programas. 
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Competir contra el 
ordenador en 
cualquier prueba 
deportiva, siempre 

es un reto a 
nuestra habilidad. 
En esta ocasi6n 
Konami nos invita 
a disputar una 
emocionante 
partida de ping 
pong, contra un 
adversario que Io 
devuelve todo. 

deporte corstitu- 
ye un importante fil6n para realizar 
juegos de ordenador; recordemos 
los programas de fOtbol, b6isbol, 
competiciones olimpicas, decathlon, 
etc. 
Una vez agotados los deportes 
m6s populares y conocidos, los ca- 
sos de software dedicadas a la pro- 
ducci6n de programas, tienen que 
recurrir a deportes m6s minoritarios 
pero que aporten un cierto atracti- 
vo, y en los que la competici6n y el 
af6n de superar al contrario,, sean 
pieza clave creando una adicci6n dio 
ficil de contener. 
Konami, ha escogido adaptar el 
ping pong al ordenador, como her- 
mano menor del tenis, al jugarse en 
una superfice mucho m6s pequea, 
con una pelota infima y dem6s ele- 
mentos, la adaptaci6n presentaba 
serios problemas, los cuales se han 
resuelto con gran astucia por parte 
de los diseadores del juego. En vez 
de reproducir el partido tal y como 
se juega de verdad, se han introdu- 
cio ciertos trucos que nos permiten 
disfrutar al m6ximo del programa. 
En primer lugar hemos de sealar 
que se ha prescindido de la figura 
humana de los jugadores, medida 
muy oportuna pues al tener un tama- 
no casi tan grande como la mesa de 
juego no nos dejarian apreciar el 
movimiento de la pelota. 
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En su lugar Io Onico que aparecen 
son las dos raquetas con la mano 
que las empua, permitiendo de es- 
ta manera que tengamos una visi6n 
total de la mesa de juego. 
Nuestro jugador se encuentra en 
la parte m6s pr6xima a la pantalla 
y el adversario se encuentra en el 
rondo de la pista, de este modo po- 
demos apreciar perfectamente el re- 
corrido de la bola cuando viene ha- 
cia nosotros, podemos ejecutar con 
precisi6n los golpes que impriminos 
a la pelota y la direcci6n en que la 
movemos. 
En este punto es donde el juego 
adquiere su m6xima brillantez, pues 
se han contemplado todos los golpes 
que se utilizan en el ping pong. 
Con el uso del joystick y un poco 
de pr6ctica, apreciaremos la amplia 
gama de enos, que podemos utilizar. 
Tenemos dos golpes de drive; uno 
listado y otro cortado. 
El saque se ejecuta lanzando la pe- 
Iota al aire y golpeando con la ra- 
queta con el golpe que queramos, 
bien de derecha o de rev6s. De re- 
v6s tambis se ejecutan los golpes 
con listada y cortado. Cuando la pe- 
Iota es devuelta por el otro jugador 
a una altura considerable, inmedia- 
tamente entra en acci6n el mate de 
la bola, el cual Io podemos ejecutar 
de drive o rev6s segOn nos conven- 
ga. 
Tambi6n cuando nos lanzan un 
mate, podemos amortiguar la bola 
con un golpe cortado, el cual nos pe- 
mitir recuperar el control del punto. 
Como se ve, la gama de golpes es 
completa y permite acercarse a Io 
que es en realidad el juego del ping 
pong. 
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Pero todo esto no servirfa de na- 
da, si no fu6semos capaces de con- 
trolar la direcci6n de la bola, cosa 
imprescindible para mover al contra- 
rio y obligarle a fallar. Esta es per- 
fectamente controlable, por la anti- 
cipaci6n o retardo conque golpee- 
mos la pelota; si dejamos que 6sta 
venga hacia la raqueta, nuestro gol- 
pe ir6 dirigido hacia la derecha, por 
el contrario si nos anticipamos a la 
bola sta se dirigir6 hacia la izquier- 
da. 
Para colmo el efecto de aproxima- 
ci6n y alejamiento de la bola, se 
aprecia perfectamente por el efecto 
tridimensional, que hace que 6sta 
aumente de tamao cuando se acer- 
ca, disminuyendo al alejarse, cuan- 
do la bola se eleva su tamao 
aumenta aOn m6s y en cualquier mo- 
mento sabemos a qu6 altura y distan- 
cia se encuentra de nosotros. 
El juego est6 dotado de cinco ni- 
veles distintos, en los cuales la velo- 
cidad del juego y la pericia del juga- 
dor que controla el ordenador, 
aumentan segOn el nivel sea m6s al- 
to, haciendo que cuando dominemos 
el nivel uno, pasemos al dos en el 
que nuestro adversario y la veloci- 
dad de la bola nos Io ponen ms di- 
ficil, aumentanto la emoci6n 1 ping 
pong. 
Un juego con peloteos y emoci6n 
incesante, que obliga a mantener 
una f6rrea concentraci6n y nos tie- 
ne en constante tensi6n en la dispu- 
ta de cada punto. 



UN BIT $1GNIFICATIVO 

Hemos hecho un largo recorrido en nuestra exploraci6n sobre 
el par6metro de canal del comando SOUND. Vim.os c6mo los 
vamres 1, 2 y 4 pueden utilizarse para reproducer notas pot 
los canales A, B y C respectivamente. 

ambi6n aprendi- 
mos como pod/amos combinarlos de 
forma que: 
SOUND 7,100,100,7 
produzca la misma nota en los tres 
tangles. 
Nos encontramos con que aa- 
diendo 8, 16 6 32 provocamos que 
los sonidos sincronicen sus notas en 
los canales A, B y C. Esto significa 
que cuando intentemos producir una 
nota en el canal A con: 
SOUND 33,100,200,6 
no podremos escuchar nada hasta 
que le demos una <<cita> con una no- 
ta del canal C usando: 
SOUND 12,200,200,5 
Recuerde que ambas notas deben 
sealarse con el part, metro de sin- 
cronismo. Usando uno tal como: 
SOUND 4,200,200,5 
no liberariamos la nota anterior de 
la cola de espera del canal A. Pru6- 
belo y Io ver6. 
Hablando de colas de espera, ca- 
da una de elias puede contener cua- 
tro notas ademcs de la que est6 
nando en el momento, y esto nos 
conduce al par6metro retenci6n. 
Sum6ndole 64 al par6metro de ca- 
nal de un comando SOUND seremos 

Bit 
N0mero activado Resultado 
1 0 Usa canal A 
2 1 Usa canal B 
4 2 Usa canal C 
8 3 Citada con A 
16 4 Citada con B 
32 5 Citada con C 
64 6 Esperando a RELEASE 
128 7 Limpia el canal 

Tat/o f: Pardmetro de canal, volores y occ/ones. 
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capaces de asegurar que cuando la 
nota alcance la cabecera de la cola 
espere alli hasta que la liberemos. 
En la pr6ctica significa que cuan- 
do introducimos en el ordenador al- 
go semejante a: 
SOUND 1,300,100,7: 
SOUND 65,400,100,7 
s61o oiremos la primera nora. La se- 
gunda permanece en la cola de es- 
pera del canal A hasta que la hagao 
mos aparecer con: 
RELEASE 1 
Finalmente vimos c6mo podemos 
unir todos los valores combincndo- 
los en un par6metro como: 
SOUND 81,200,100,7 
para producir una nora por canal A 
que no s61o est6 retenida sino que es- 
pera sincronizarse con otra del B. Pa- 
ra conseguir que este <<timido soni- 
do salga de su escondrijo tendremos 
que liberarlo con un: 
RELEASE 1 
y entonces sonar6 cuando aparezca 
una nota por el canal B tal como: 
SOUND 10,100,100,3 

Teclas $onoras 

Esperamos que se haya divertido 
con todo Io relacionado con los pa- 
r6metros del comando SOUND. No 
es la mejor forma de aprender ya 
que, con el clip de sonido que tiene 
nuestro Amstrad, es bastante m6s 
0til practicar que quedarnos simple- 
mente en la pura teoria. No hay du- 
da de que cuando estemos manej6n- 
dolo podemos encontrarnos metidos 
dentro de un <<pozo sin salida del 
que solamente nos sonar la tecla 
ENTER a la que previamente hemos 
asignado: 
KEY 139,<<SOUND 
135,0,0, 0 + CH RS(13) 
Sin esta ayuda nos habrc dado fre- 
cuentemente dolor de cabeza inteno 
tar escapar de una cacofonia o un in- 
franqueable muro de silencio. 



;.Ha observado algo extrao en el 
par6metro de canal del comando 
SOUND mientras estaba escribiendo 
la anterior instrucci6n? Su valor es 
135, bastante m6s alto que los que 
hemos utilizado hasta ahora. 
Como habr6 podido suponer, se 
trata de otro nuevo nOmero que po- 
demos aadirle al parmetro de ca- 
nal. En este caso es el que origina 
que el canal o canales oportunos se 
dimpiem o liberen de notas. 
Pruebe un sonido semejante a': 
SOUND 1,200,100,7 
Es un poco mon6tono, /,verdad? 
Suponga por un momento que nece- 
sitamos conseguir una nota que est6 
sonando en el canal A. Mientras el 
programa est6 ejecut6ndose no po- 
dremos pulsar la tecla ENTER, deft- 
nida previamente, asi que ,c6mo po- 
drlamos hacerlo? 
Utilizando: 
SOUND 1,200,100,7 
no conseguiremos ningOn efecto, te- 
nemos atascada la cola de espera 
del canal A y la primera nora conti- 
n0a hasta terminar. 
/,Por qu no usar el par6metro lim- 
piador 1287 Lo que queremos hacer 
es despejar el canal A, que tiene co- 
mo par6metro el 1, asi que el valor 
que estamos necesitando es 129 
(1 +128). Con esto le estamos indi- 
cando que: 
SOUND 129,200,100,7 
har6 el trabajo por nosotros, cortan- 
do Io primera nora y eliminando sus 
huellas. Ahora comenzaremos a oir 
una de tono 200, volumen 7 que du- 
rar6 un segundo. 
En otras palabras, el parmetro 
limpiador da prioridad a una nora 
sobre otra que est6 sonando o espe- 
rondo en la cola. Un valor 129 echo 
fuera todas las notas que haya en el 
canal A mientras que 130 (2 +128) 
y 132 (4+128) hacen Io propio en 
los canales B y C. Ocurre asiincluso 
cuando las notas de la cola est6n re- 
tenidas o citadas para sincronizarse 
con los de otro canal. 
Introduciendo: 
SOUND 66,400,200,7 
retenemos una nora en la cola de es- 
pera del canal B. Sin embargo: 
SOUND 130,400,200,7 
se deshace de la primera nora --y de 
cualquier otra que pudiera estar es- 
perando en dicho canal-- y hace so- 
nar otra que tiene un tono 400, un 
volumen 7 duronte 2 segundos. 

De la misma forma: 
SOUND 12,100,100,7 
est6 esperando para sincronizarse 
con una del canal A. Cualquier otra 
nora del canal C tendr6 que colocar- 
seen un lugar m6s atrasodo dentro 
de la cola de sonido y esperar turno 
hasta que se produzca la reuni6n. Y 
suceder asi, pot supuesto, a menos 
que se cuele por medio: 
SOUND 132,1000,300,6 
que se libra de todas las dem6s no- 
tas y suena durante 3 segundos. 

Limpiar el sonido 

Tambi6n podemos mezclarlo o em- 
parejarlo con otros valores de este 
mismo par6metro. Si nos encontra- 
mos con 131 --1 +2+ 128-- cumple 
la misma funci6n pero esta vez con 
A y C. Como podemos adivinar: 
SOUND 135,0,0,0 
barre las notas que haya en todos los 
canales. Aunque est6n sonando, re- 
tenidas, aguardando para sincroni- 
zarse o simplemente esperando, ac- 
t0a sobre todas. Pero esta vez la gl- 
tima nora tiene un tono, volumen y 
duraci6n igual a cero, asi que no 
suena ninguno nora m6s. En efecto: 
SOUND 135,0,0,0 
se deshace de todos los comandos 
SOUND precedentes. Como vimos 
cuando asignamos una funci6n a la 
tecla ENTER, esta instrucci6n puede 
prestarnos una ayuda muy beneficio- 
SO. 
Y el par6metro limpiador, es el 
01timo que nos vamos a encontrar, le 
alegrar6 saberlo, en nuestro trata- 
miento sobre el por6metro de canal. 
La Tabla 1 nos Io resume: 
TABLA 1 
bit number 7 6 5 4 3 2 I 0 
binary byte 0 0 0 0 0 0 0 1 
Figura f: Poskbnes del bit en el binario 1. 
Observe que hay algunos valores 
en ella a los que hemos denomina- 
do <<bit activo, de un rango com- 
prendido entre 0 y 7. Est6n indic6n- 
donos Io queen el parmetro del co- 
mando SOUND se conoce como bit 
significativo. 
,coor AMSTRAD I. 



Esto quiere decir que cuando pa- 
samos a binario el nOmero de canal, 
que generalmente est6 en decimal, 
los ceros y unos se usan como flags 
para activar o desactivar los diferen- 
tes aspectos de los par6metros de ca- 
nal. 

Con un byte basta 

Para ilustrarlo veremos un sencillo 
ejemplo donde el par6metro de ca- 
nal de un comando SOUND es 1. El 
n6mero binario equivalente a 1 es, 
isorpr6ndase!, 1, o mejor dicho 
00000001 cuando queremos poner- 
Io con ocho cifras. Si no nos com- 
prende del todo, introduzca en su mi- 
cro: 
PRINT BIN$(I,8) 
y nos saJdr6: 
00000001 
Cada una de esfas ocho cifras es 
Io que Ilamamos un bit>> que forma 
parte de un byte>, o representaci6n 
de un decimal en ocho cifras bina- 
rias. El bit que est6 m6s a la derecha 
--en este caso es el 1-- es conocido 
como bit 0, el que est6 una posici6n 
m6s a la izquierda --aqui un 0-- co- 
mo bit 1, el siguientecomo bit 2 yasi 
sucesivamente hasta el 61timo, el bit 
7. La figura 1 muestra los nOmeros 
de los bits, o posiciones, que hay 
dentro de un byte. 
Vamos a intentar conseguir expreo 
sar el nOmero 2 como el contenido 
de un byte expresado en binario. Pa- 
ra ello tecleamos: 
PRINT BINS(2,8) 
obfeniendo: 
00000010 
En esfe caso el bit 0 es 0 mienfras 
que el bit I es un I. Los resfanfes (2 
a 7) son todos 0. La figura 2 nos en- 
sea c6mo quedaria. 

bit number 7 6 5 4 3 2 1 0 
binary byte 0 0 0 0 0 0 1 0 
Figura I1: Pos/dones de b# en el binado 2. 
No sabemos usted, pero nosotros 
encontramos que hablar de que el bit 
0 vale 0 y el bit 1 vale 1, es un poco 
confuso. Preferimos decir que un bit 
<se activa> si es igual a 1 o se desac- 
tiva si es igual a 0. De esta forma, en 
el Oltimo ejemplo s61o hay un bit 
tivado --1-- mientras que todos los 
dem6s est6n desactivados --0. 
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Veamos qu6 pasa con nuestro Ol- 
timo par6metro de canal, 4, con un 
r6pido: 
PRINT BINS(4,8) 
y nos dar6: 
OO0O01OO 
El bit 2 esf6 activado mienlras que to- 
dos los dem6s esf6n desacfivados. 
Ahora comp6relos con la columna 
bit activo> de la Tabla 1. Con un pa- 
r6metro de canal igual a 1 vireos que 
el bit 0 estaba activado. Por la Ta- 
bla sacamos que ha de ser el canal 
A el que usamos para producir la no- 
ta. Asi que si el bit 0 est6 activo usa- 
mos el canal A. 
De un modo semejante, si est6 ac- 
tivado el bit 1, usamos el canal B y 
si es el bit 2, seleccionamos el C. Po- 
demos observar que si activamos un 
bit se produce el resultado indicado 
por la siuiente columna de la Tabla. 
Esto es o que queriamos contarles 
cuando indic6bamos que el par6me- 
tro de canal estaba compuesto por 
bits significativos. Obtenemos una 

O 

acci6n diferente seg0n qu bit de los 
que forman el byte est6 activado. 
Suponga ahora que tenemos una 
nora sonando por los 3 canales con 
un parmetro que vale 7. Su repre- 
sentaci6n en binario es 00000111. 
Compru6belo con: 
PRINT BINS(7,8) 
si duda de nuestras palabras. 
Como habr6 podido observar, los 
bits 0, 1 y 2 est6n activados. Miran- 
do la Tabla vemos que esto significa 
que las notas van a salir pot los ca- 
hales A, B y C. 
Y podemos generalizarlo para to- 
dos los dem6s valores que demos al 
parmetro de canal y que puede Ile- 
gar hasta 255. Si los pasamos a un 
n0mero binario de 8 bits deducire- 
mos qu6 funciones se activan o de- 
sactivan para cada bit en particular. 
Veamos un gltimo ejemplo. Un pa- 
r6metro de canal igual a 135 limpia 
de notas todos los canales. Si hace- 
mos: 
PRINT BIN$(135,8) 
nos dar6 el siguienfe byfe: 
10000111 
Estudi6ndolo bif a bit es f6cil ase- 
gurar que la acci6n limpiadora que 
se pone en marcha cuando el bit 7 
est6 acfivo afectar6 a los 3 canales 
A, B y C, ya que los bits 0 a 2 est6n 
tambi6n activos. 
Pruebe todo Io anterior dando 
cualquier valor al par6metro del ca- 
nal y examine su representaci6n bi- 
naria equivalente para ver qu6 ocu- 
rre. Es maravilloso poder conocer el 
efecto producido por determinado 
valor dado a dicho par6metro, por 
ejemplo 97, partiendo del an61isis del 
nOmero binario que le corresponde, 
01100001. En este caso los bits 6, 5 
y 1 est6n activados, asi que es evi- 
dente, mirando la Tabla 1, que ob- 
tendremos una nota por el canal A 
esperando una <cita>> o sincronismo 
con otra del canal C. Hasta que nos 
familiaricemos con ello, parece un 
poco extrao que la versi6n binaria 
de un ngmero decimal detalle tan 
fielmente los resultados que va a pro- 
ducir el par6metro de canal. 
Y esto es todo por esta semana. 
Para la pr6xima esperamos que ha- 
ya comprendido perfectamente todo 
Io relacionado con los bits significa- 
tivos> y abandonaremos el par6me- 
fro de canal para irnos directamen- 
te al comando SQ. Sus conocimien- 
tos sobre la instrucci6n SOUND se 
ver6n incrementados un significativo 
bit>. 



Contabilidad 

P.V.P. 19.900 

Facturac  Nn 

P.V.P. 15.500 

Control de stock 

P.V.P. 14..900 , 

PCW '82 6 

te sorprendera 

Torres Quevedo, 34 
Tel, (967) 22 79 44 
CAdigo potal 02003 
Albacet¢ 



i  ICROSA V 

Esta semana el programa que nos ocupa est6 escrito en una mezcla de 
Basic y c6digo m6quina; a priori tal vez parezca un tanto inusual, pero 
la raz6n de incluirlo en esta secci6n es muy clara: la importancia del 
tema que este programa aborda. 
Se trata de una apllcaci6n que pasa programas de cinta a cinta, y que, 
entre otras cosas, permite sacar copias de seguridad c6rnodamente de 
nuestros programas favorito$. 

+ o 

I 
I 
I 
I 
I 

18 ::cPoo++Y AMSTRAD 



trata de un pro- 
grama que copia, desprotege, ace- 
lera y da todos los datos de la cabe- 
cera de un programa. 
Este programa dispone de nueve 
opciones cuyo usa expongo a conti- 
nuaci6n: 
Load (k): Cargo programas en la 
memoria del ordenador y da todos 
los datos (hombre, tipo, Iongitud, di- 
recci6n, etc.) de cada bloque. Asi- 
mismo, da un c6digo a cada bloque 
(A, B, C .... N) para poder identificar 
luego los bloques al grabarlos. 
Save (S): Graba programas en la 
cinta. Su sintaxis es coma la del LIST 
del Basic; se escribe: S-Bloque inicial- 
Bloque final. Par ejemplo: si quisi- 
ramos grabar los bloques del Cal F 
pondriamos: S C-F (es importante el 
espacio entre la S y la C). Si quisi6- 
ramos grabar desde el bloque Den 
adelante: S D-. Si quisi6ramos grabar 
todos los bloques pondremos senci- 
Ilamente S y, si s61o queremos gra- 
bar el E pondremos S E. 
Cat (C): Realiza un cat61ogo de la 
cinta dando todos los datos. Para 
volver a Men0 pulsar ESC y luego 
mantener el TAB hasta que vuelva al 
Men0. 
Velo¢idad (¥): Cambia la veloci- 
dad de grabaci6n. Dispone de cua- 
tro velocidades: Lenta (1.000 ban- 
dios), Normal (2.000), Rpida 
(2.500) y Turbo (4.000), con Io que 
conseguimos que coda bloque tarde 
16, 8, 6 6 4 segundos en grabarse. 
Pulsando V se cambia la velocidad. 
Protecci6n (P): Protege o despro- 
tege los programas: tecleando P- 
ON, protege todos los bloques que 
se hallen en memoria y tecleando P- 
OFF o simplemente P los desprotege. 
Name (N): Cambia el hombre de 
los programas. Su sintaxis es la si- 
guiente: noNombre. Despu6s, el or- 
denador coloca una flecha delante 
del primer bloque. Si se desea cam- 
biar el hombre de ese bloque, se pul- 
sa ESPACIO, si no ENTER, y Io mis- 
mo hacemos con el resto de los blo- 
ques. 
Delete (D): Borra todos los bloques 
y deja espacio para cargar ms pro- 
gramas. 
Help (H): Hace un listado de los 
comandos que posee este programa. 
End (E): Finaliza el programa y le 
deja en condiciones de ser grabado. 
Este programa s61o sirve para co- 
piar programas de cinta a cinta, no 

puede utilizar el disco, no obstante, 
es compatible con todos los modelos 
Amstrad, pero los que tengan la 
suerte de poseer disco, deber6n te- 
clear un paso m6s: 15 ITAPE 
No es buena afiadir m6s pasos al 

STR U : A EL " R * GRAM ' 

10-40 Inicializaci6n de variables 810 Bucle que recorre todos los 
pard c6digo mquina, programas. 
.50 Carga de c6digo m6quina. 820-850 Seala cada programa y 
60-80 Definici6n de la pantalla, averigua si hay que 
90-120 Definici6n de variables y de cambiarle de nombre. 
funciones para el programo. 870 Cambia el hombre. 
130 Presentaci6n de comondos. 900 Cierro el bucle. 
140-210 Entroda de opciones y 910 Vuelve amenO. 
Ilamoda de subrutinas. 920-940 Subrutina DELETE 
220-320 Subrutina LOAD 930 Limpia la pantalla y pone el 
230 Activo motor del cassette, n. ° de programas o cero. 
260 Cargo la cabecero. 940 Vuelve a men0. 
270 Imprime datos. 950-1000 Subrutina HELP 
280 Cargo el programa. 
290 Contin0a con otro bloque o 960-990 Imprime listado de 
para el motor y vuelve, comandos. 
330-520 Subrutina SAVE 1000 Vuelve amenO. 
340 En caso de no hober 1010-1050 Subrutina END 
programas vuelve amenO. 1020 Restablece el modo 2. 
`350-400 Halloqu6 bloquesdebecargor. 10`30 Despedida. 
410 Activo el motor. 1040 Rehobilita el ordenador para 
420 Bucle para grabar los bloques, poder set grabodo. 
4,30 Bucle de espera. 1050 Finaliza el programa. 
460 Groba la cabecera. 1060-1230 Subrutina Oatos: 
470 Grabo el programa. Imprime los datos de la 
490 Cierro el bucle, cabecera en pantollo. 
$10 Pard el motor y vuelve a 1070 Imprime c6digo (A, B, C ..... 
men0. N). 
530-630 Subrutina CAT 1080-1110 Imprime Nombre. 
1130-1180 Imprime Tipo: 
540 Presentaci6n. t=0 Basic 
560 Activo el motor. 
t=l Basic Protegido 
580 Carga Io cabecera, t=2 Binario 
590 Imprime datos, t=3 Binario Protegido 
600-620 Contin0a o para el motor e t--4 Pantalla 
imprime los programas que t=22 ASCII 
habia en la memoria. 1200 Calcula la Iongltud, direcci6n 
630 Vuelve a men0. iniciol y direcci6n de 
640-690 Subrutina SPEED WRITE outoejecuci6n. 
650 Cambio la velocidad. 1210 Imprime el n. ° de bloque y el 
n. ° de bloques totales. 
670 Activa y escribe la velocidad 
Lento o Normal. 1220 Imprime Iongitud de bloque, 
680 Activa y escribe la velocidad direcci6n de carga, Iongitud 
R6pida o Turbo. total del programa y 
direcci6n de outoejecuci6n. 
690 Vuelve a menO. 
1230 Vuelve. 
700-770 Subrutina PROTEC¢ION 
1240-1290 Subrutina ¢6dlgo 
710 Hallo si se ha de proteger o Mcquina 
de desproteger. 1250 Establece el tope de 
720 Bucle que recarre todos los 
memoria. 
programas. 
740 Protege o desprotege. 1260 Bucle para cargar el c6digo 
mcquma. 
750 Imprime nuevo tipo de 1270 Vuelve a programa principal. 
programa. 
760 Cierra el bucle. 1280 Dotos de velocidad de 
grabaci6n. 
770 Vuelve amenO. 1290 Datas de LOAD cabecera. 
780-910 Subrutina NAME LOAD programa. 
800 Carga en nS el hombre de SAVE cabecera. 
los bloques. SAVE programa. 



programa, pues est. reducido al m- 
ximo pensando en los usuarios de 
cassette al grabar el programa en 
s61o dos bloques (4K). 
Consejos para su utilizaci6n: Gra- 
bar el prograrna antes de ejecutarlo. 
No pulsar ESC a no ser en la op- 
ci6n de CAT y en este caso, pulsarlo 
una sola vez (/nunca dos/). 
Hay algunos pasos de programa 
muy complicados para el programa- 
dor de Basic: procure entenderlos, 
estcn basndos en la programaci6n 
c6digo mcquina. 
Cuidado con los DATAs, cualquier 
error puede ser fatal. 

VARIABLES 

Direcciones de c6digo m6quina 
vgr Velocidad de GRabaci6n. 
Icb Load CaBecera. 
Ipr Load PRograma. 
scb Save CaBecera. 
spr Save PRograma. 
moron MOtor ON. 
motoff MOtor OFF. 
n N0mero de programas. 
vel Velocidad de grabaci6n. 
aS Opci6n elegida. 
nS Cat61ogo de opciones. 
o Valor numrico de la 
opci6n elegida. 
i, j Bucles 
w, v Valores transitorios. 
Ic Direcci6n de cargo de 
cabeceras. 
Ip Direcci6n de cargo de 
programas. 
vi, vf Valor inicial y final de 
n0mero de programa 
para SAVE. 
nu N. ° de programa. 
prt Protecci6n: 
0=OFF/-=ON. 
n$ Hombre de programa en 
NAME. 
iS Tecla pulsada. 
t, tt Tipo de programa. 
wl, w2, w3, 
w4 Longitud del bloque, 
direcci6n de cargo, 
Iongitud total, direcci6n 
de autoejecuci6n. 
a Valor lefdo de read. 
Funciones definidas 
c (w) Direcci6n de carga de 
cabeceras. 
p (w) Direcci6n de carga de 
programas. 
b (v) y a (w) Conversores de decimal a 
hexadecimal. 
d (w) Conversar de 
hexadecimal a decimal. 

10 REM  COPION P&S 1986 
20 MODE 2 
30 vgr-7931:lcb=7940:lpr 7952:sob 7 
964:spr=797b 
40 moton=&BCbE:motof÷=&BC71 
50 GOSUB 124D 
bO WINDOW #O,I,803I&:WINDOW #1,1, 
80I,2:WINDOW #22,79,18,23 
70 PRINT #1,TAB(2)" COPION P&S 
SO PRINT #ICHR$(24);" N Hombre 
Tipo Bk Nb 
Long. Lugar L.ToL Ejec.";C 
HR$(24) 
90 m$="LSCVPNDHE" 
100 DEF FN c(w)=7936+b4:DEF FN 
w)-b976+w2048 
110 DEP FN b(v)=INT(v/256):DEF FN a 
(w)=w-FN b(w)$25&:DEF FN d(w)=PEEK( 
w)+PEEK(w+I)256 
120 n=O:veI=I:SPEED WRITE I 
130 GOSUB 950:PRINT #2 
140 WHILE INKEY$<>"":WEND 
150 INPUT #2,"O";o$:o$-UPPER$(o$) 
IbO IF o$-"" THEN 150 
170 o-INSTR(I,m$,LEFT$(o$I)) 
180 IF o=0 THEN PRINT #2,"Error":GO 
TO 150 
190 ON o GOSUB 2203Os53C,b400700, 
780920,950I010 
200 PRINT #2 
210 GOTO 140 
220 REM LOAD 
230 CALL moton 
240 n=n+1:IF n=15 THEN n=14:PRINT # 
2,"Memoria llena!":CALL motoff:RETU 
RN 
250 lc FN c(n):Ip=FN p(n) 
260 POKE Icb+6,FN a<Ic):POKE icb+7 
FN b(Ic):CALL 
270 LOCATE In:nu=n:GOSUB I00 
280 POKE Ipr+6,FN a<Ip):POKE lpr+7, 
FN b(Ip):POKE lpr+3sPEEK(lc+Ig):POK 
E Ipr+4,PEEK(Ic+20)CALL Ipr 
290 IF PEEK(lc+17)-O THEN 240 
300 FOR i=l TO 300:NEXT i 
310 CALL moto÷f 
32O RETURN 
330 REM SAVE 
340 IF n=O THEN PRINT #2"Vacio":RE 
TURN 
350 o$ MID$(o$,3,3):IF o$ .... ' THEN o 
360 w=AS(LEFT$(o$I))-64 
370 IF w>-[ AND w<-n THEN vi-w ELSE 
v=1 ..... 
380 w=ASC(RIGHI$(o$,I)-64 
390 IF w>=l AND <=n THEN vf- ELSE 
vf-n 
400 IF vi>vf THEN w=v:vi=vf:vf=w 
410 CALL moton 
420 FOR i=vi TO vf 
430 FOR j=1 TO 2000:NEXT 
440 LOOATE Ii:PRINT 
450 Ic-FN c(i):ip-FN p(i) 
40 POKE scb+6,FN a(Ic):POKE sob+7, 
FN b(Ic):CALL scb 
470 POKE spr+6,FN a(lp):POKE spr+7, 
FN b(Ip):POKE spr+3PEEK(Ic+Ig):POK 
E spr+4,PEEK(Ic+20):CALL spr 
480 PRINT CHR$(8);" " 
490 NEXT i 
500 FOR i=! TO 2000:NEXT 
I0 CALL mto( 
520 RETURN 
530 REM CAT 
540 CLS 
550 PRINT #2"ESC y TAB para MENU" 
560 CALL moron 
570 lc-FN c(16) 
580 POKE Icb+6FN a(Ic):POKE Icb+7, 
FN b(lc):CALL lob 
590 PRINT " - ";:GOSUB 1080 
600 IF INKEY(&8)--I THEN 580 
610 CALL motoff 
620 CLS:FOR i=1 TO n:nu-i:Ic=FN 

.  UBRUTINAS EN 
CODIGO MAQUINA 

Velocidad de grabaci6n: 7931 
Ld HL, 130 d Velocidad. 
Ld A, 0d. Precompensaci6n. 
CALL &BC68 Velocidad de cassette. 
Ret 
Load Cabecera: 7940 
Ld DE, 64d. Tono de cabecera. 
Ld A, 44d. Longitud de cabecera. 
Ld HL, 0d. Direcci6n de cargo (a 
determinar par 
programa). 
CALL &BCA1 Load. 
Ret 
Load Programa: 7952 
Ld A, 22d. Tono de progroma. 
Ld DE, 0d. Longitud de programa (a 
determinar). 
Ld HL, 0d. Direcci6n de carga (a 
determinar). 
CALL &BCA1 Load. 
Ret 
Save Cabecera: 7964 
"omo Load Cabecerm pero Ilamando a: 
&BC9E Save 
Save Programa: 7978 
Coma Load Programm pero Ilamando a: 
&BC9E Save. 

):GOSUB I060:NEXT i 
630 RETURN 
640 REM $SPEED WRITE 
650 vel vel+1:IF vel=4 THEN vel=O 
&60'PRINT #2,"Velocidad: "; 
670 IF vel<2 THEN SPEED WRITE vel:I 
F vel-O THEN PRINT #2,"Lenta" ELSE 
PRINT #2,"Normal" 
680 IF vel>1 THEN POKE vgr+Is130+(v 
el-3)35:POKE vgr+4,-(vel=3)I5:CALL 
vgr:IF vel=2 THEN PRINT #2"Rapida 
" ELSE PRINT #2,"Turbo" 
690 RETURN 
700 REM SPROTECCION ON/OFFI 
710 prt-(MID$(o$s3,2)="ON") 
720 FOR i-1 TO n 
730 Ic-FN c(i):p-PEEK(lc+18) 
740 IF prt-O THEN POKE lc+18p AND 
254 ELSE IF p<4 THEN POKE ic+18,p 0 
RI 
750 nu-i:LOCATE Ii:GOSUB 1060 
760 NEXT i 
770 RETURN 
780 REM NAME 
790 IF n=O THEN PRINT #2,"Vacio":RE 
TURN 
800 n$=MID$(o$,3,16):n$-n$+STRING$( 
16-LEN(n$),O) 
810 FOR i I TO n 
820 LOCATE I,i:PRINT CHR$(243) 
830 i$=INKEY$ 
840 IF i$=CHR$(13) THEN 890 
850 IF iS<>" " THEN 830 
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DIVISION DE LA 
MEIHORIA DEL 
ORDENADOR 

A partir de: 
368 Programa en BASIC. 
7931 Subrutinas en c6digo 
m6quina. 
8000 Cabeceras de los 
programas de 64 bytes 
coda una. 
9024 Programas grabados de 
Iongitud m6xima 2048 
byles. 
37696 Libre. 

860 Ic:FN 
870 FOR j=O TO ;5:POKE Ic+).ASC(MID 
$(n$jI,I)I:NEXT 
880 LOCATE 4,i:PRINI n$;IAB(22) 
890 LOCATE I,i:PRINT " " 
900 NEXT i 
910 RETURN 
920 REM DELETE 
930 OLS:n=O 
940 RETURN 
950 REM HELP 
960 PRINT #2."Comandos:" 
970 PRINT #2,"Load Save Cat" 
980 PRINT #2."Veloc Protec Name" 
990 PRINT #2,"Delete Help End" 
1000 RETURN 
1010 REM END 
1020 MODE 2 
1030 PRINT "COPION P&S 1986":PRINT 

1120 
1130 
1140 
1150 
llbO 
1170 
1180 
1190 

1040 MEMORY 20000 
1050 END 
1060 REM Datos** 
1070 PRINT .... ;CHR$(64+nu);" "; 
1080 IF PEEK(Ic)=O THEN PRINT "Sin 
Nombre";:GOTO 1120 
1090 FOR w=O TO 15 
1100 IF PEEK(It+w)>31 THEN PRINT CH 
R$(PEEK(Ic+w)); ELSE PRINT" "; 
1110 NEXT  
PRINT TAB(23); 
t-PEE(Ic+18):tt=t AND & 
IF tt-O THEN PRINT "BASIC"; 
IF it-2 THEN PRINT "BINARIO"; 
IF it=4 THEN PRINT "PANTALLA"; 
IF t:=& THEN PRINT "ASCII"; 
IF t AND I THEN PRINT " PROTES 

PRINT TAB(41); 
1200 wI-FN d(Ic+19):w2=FN d(lc+21): 
w3-FN d(ic+24):w4=FN d(Ic+26) 
1210 PRINT USING" ##";PEEK(It+f6); 
INT((w3-1)/2048)+I; 
1220 PRINT USING" #####";wl;w2;w3 
1230 RETURN 
1240 REM Codigo MaquinaX 
1250 MEMORY vgr-1 
1260 FOR i=vgr TO vgr+56:READ a:POK 
E i,a:NEXT i 
1270 RETURN 
1280 DATA 33,130,0,62,C,205,;04,188 
201 
1290 DATA 62,44,17.64.0.33,0.0,205, 
161,188201b22217003300,205 
.161,188.201.62,44,1764,0,3.0,0.2 
05,158188,20162,22,170,03300 
205,158,188.201 

ESTRUCTURA GENERAL DEL PROGRAMA 
10-40 Inicializaci6n de variables para ¢6digo mOquina. 
50 Cargo de c6digo m6quina. 
60-80 Definici6n de la pantalla (ventanas y titulos). 
90-I 20 Definici6n de variables y funciones para el programa. 

130 
140-210 
220-320 
330-520 
530-630 
640-690 

700-770 

780-910 
920-940 

Presentaci6n de comandos. 
Entrada de opciones y Ilamada de subrutinas. 
Subrutina LOAD para cargar programas. 
Subrutino SAVE para grabar programas. 
Subrutina CAT para listar parcial o totalmente cintas. 
Subrutina SPEED WRITE para variar la velocidad de 1.000 a 4.000 
bandios. 
Subrutina PROTECCION ON/OFF para proteger o desproteger 
programas. 
Subrutina NAME para cambiar el nombre de los programas. 
Subrutina DELETE para borrar programas y poder cargar m6s. 

950-1000 Subrutina HELP para listar los comandos existentes. 
1010-1050 Subrutina END para finalizar. 
1060-1230 Subrutina Datos para listar los datos de las cabeceras en LOAD y CAT. 
1240-1290 Subrutina C6digo M6quina para cargar el C/M que ser6 utilizado 
par el programa en SAVE, LOAD y velocidad de grabaci6n. 

GANA 
100.000 PESETAS 

CON MICROHOBB Y 

AMSTR, D 

SEMANAL 

Porque pretendemos que AMSTRAD 
SEMANAL sea tombin vuestra revista, 
hemos abierto una secci6n en la que se 
publicarn los meiores programas origi- 
nales recibidos en nuestra redacci6n. Vo- 
sotros ser6is los encargados de realizar 
estas pginas, en las que podr6is apor- 
tar ideas y programas interesantes pa- 
ra otros lectores. 
Los condiciones son sencillas: 
-- Los progromas se enviarn a AMS- 
TRAD SEMANAL en una cinta de casset- 
te, sin protecci6n en el software, de for- 
ma que sea posible obtener un listado de 
los mismos. 
-- Cada programa debe ir acompa- 
,ado de un texto explicativo en el cual 
se incluyan: 
-- Descripcion general del programa. 

-- Tabla de subrutinas y variables uti- 
lizadas, explicando claramente la 

funcidn de coda una de elias. 
-- Instrucciones de monejo. 
-- Todos estos datos debern ir escri- 
tosa m6quino o con letra clara para ma- 
yor comprensi6n del programa. 
-- No se admitir6n programas que 
contengan caracteres de comrol, debi- 
do a que no son correctamene interpre- 
tados par las impresoras. 
-- En una sola cinta puede introducir- 
se m6s de un programa. 
-- Una vez publicado. AMSTRAD SE- 
MANAL abonar al aurar del programa 
de l$.0Og a 1O0.OgO pesetas, en con- 
cepto de derechos de autor. 
-- Los autores de los programas selec- 
cionados para su publicaci6n, recibirn 
una comunicaci6n escrita de ella en un 
plaza no superior a dos meses a partir 
de la fecha en que su programa Ilegue 
a nuestra redacci6n. 
-- M$1"RD SEMANAL se reserva el 
derecho de publicaci6n o no del progra- 
ma. 
-- Todos los programas recibidos que- 
dargn en poder de AMSTRD SEMA- 
NAL. 
-- Los programas sospechosos de pla 
gio ser6n eliminados inmediatamente. 

|ENVIANOS 
TU PROGRAMA! 
Ad/untando los siguientes datos: 
Nombre y apellidos,. 
direcci6n y telfono. 
Indicando claramente en el sabre: 

AMSTRAD SEAAANAL 

a HOBBY PRESS, S. A. La Granja, 39 
Pol. Ind. AIc0bendas (Madrid) 
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DOMINO 

Eres un forastero que se une a una partida 
de domin6 entre tres experimentados 
juladores. Coma tales su nivel de juego es 
lastante alto, par eso se te concede la 

oportunidad de elegir su nivel (0-9) y 
evitar frustraciones. 
Julia O. Marcos Matilla 

Se te preguntar6 si quieres jugar 
otra partida, si dices si, jugar6s con 
el mismo hombre y continuar6 el jue- 
go; si no podrc jugar otra persona 
y comenzar6 la partida desde cero. 

e reparten /as fi- 
chas y... iQu. , one el me'or! 
Empieza, coma siempre, aqu6l 
que tiene el seis doble y se van colo- 
cando fichas alternativamente hacia 
la derecha. 
AI jugador que le corresponda ti- 
tar tiene su nombre escrito en /a par- 
te superior derecha de la pantalla y, 
para reconocerlo fdci/mente, sus 
chas en v/deo inverso. 
Cuando sea su turno, pulsa cual- 
quier tecla para avanzar en la elec- 
c;6n de ficha y ENTER para cola- 
carla. S61a avanzan hacia la dere- 
cha. Si no tienes ninguna ficha para 
firar ¢¢pasa simplemente pulsando 
la letra ffps. 
Se fina/izard la parfida, cuando a/- 
gn /ugador termine sus fichas o no 
se puedan colocar mds. Se sumard 
a cada jugadar los puntos de las fi- 
chas que le queden en su poder. S; 
alguno ha ganado, se /e restan diez 
puntos al total que tenga en su ha- 
bet. 
L6gicamente ird ganando el que 
tenga menos puntuaci6n. AI final 
aparecerd una tabla con los nombres 
de/as jugadores, /a puntuaci6n de la 
ltima partida y los puntos totales. En 
otra color el que vaya en cabeza par 
puntos (el primero). 
iOjo con las trampas! No se acep- 
tan fichas inv61idas, ni pasar cuando 
es posible colocar alguna ficha. 
Io conseguirs que renuncien tus 
compafieros de partida y que se te 
sumen 30 puntos al total. 

22 ,COHOr AM$FRAD 

El iuego 
No resulta fccil describir un pro- 
grama de 22 Ken unas pocas ha/as; 
sin embargo, podriamos dividirlo en 
tres partes: la pantalla inicial, el jue- 
o con la colocaci6n de la ficha y el 
En la pantalla inicial se incluye la 
rutina de caracteres y tintas, donde 
se crean los caracteres de las diferen- 
tes fichas en las diferentes posiciones 
y se crean los ventanas y tintas ne- 
cesarias. 
A continuaci6n se crean las dife- 
rentes tablas y se dan valores a las 
variables. Las principales son: 
plS=n0mero de ficha del juga- 
dor plS (/ugador, ficha) 
sen, col, n, x, y, doble son tobias 
utilizadas para la colocaci6n de la fi- 
cha de la que ya hablaremos. 
cardS, valor, paso y jugada son 
para la elecci6n de la ficha durante 
el juego. 
hams son los hombres de los ju- 
gadores. 

u 

II 

Ahora asigna y reparte las fichas. 
La ficha queda almacenada en for- 
ma de literal en cards con ambos va- 
lores separados par una coma. Ejem- 
plo: 6,5 es la ficha 6-5 6 5-6. 
Las fichas se reparten a cadajuga- 
dor en la variable pl S (player, ficha) 
y se vuelven a asignar de nuevo las 
fichas para que el ordenador sepa 
durante el juego las que van salien- 
do y las que quedan par salir. 
Ahora ya podemos dibujar la pan- 
talla inicial. 
Se colorea el tablero (cls#1) y se 
distribuyen las fichas. Las de los ju- 
gadores se colocan en vertical y las 
propias sabre el tablero con su va- 
lor. 
Para dar el color del papel al gr- 
rico se utiliza la rutina &BBE4. SegOn 
el n0mero de par6metros, ('no e/va- 
lor), que se manden a la rutina, el re- 
gistro A se carga con el n0mero to- 
tal que se manden y la rutina se en- 
carga de poner el papel de gr6ficos 
con el valor de la tinta que tengc A. 
A continuaci6n revisa las fichas de 
todos los jugadores para ver cu61 tie- 
ne el seis dable; aqul que Io tenga, 
se le borra la ficha carrespondiente 
y se coloca en el tablero para co- 
menzar el juego. 

NOTA: Cuando se escoge un nivel bajo, 
par ejemplo el 3, no significa que se 
vaya a coger la [ugada con el nivel 3. 
Se calcula un ndmero aleatorio entre 0 y 
lO-nivel elegido que sumado al nivel nos 
da una jugada entre 3 y 9; de esta 
farina se evita que la mdquina haga 
muchas ¢¢burradas en niveles inferiores. 
L6gicamente en el nivel 9 s61o saldr5 la 
/ugada 9 pues se suma int (RND(IO 
- 9))=0 



! rl 
?0 REN 
3<, REM D 0 M I N 0 
40 REM 
50 REM Pot 
70 EM Pare MICROHOBBY AMSTRAD 
80 REN 
90 REM 
I00 MODE I:DEFINT a-z 
13> GOSUB 70 
140 GOSIIB 3240 
,' OSUB 2460 
10 GOTO 2210 
170 REM .... Nombre y nvel --- 
1BO CLS 
10 PEN :F'APFR O:CLS 
71o inATE II,I:PRINT"ESCRIB[ TUN 
OMBRE" 
220 hams (4) ="" 
23b PEN I 
?0 $-INFY$:IF aS="" GOTO 240 
250 IF a$ CHR$(13) GOTO 330 
260 IF a$-CHR$(127) IHEN nam$(4}-LE 
FT$(nam$(4) I.EN(nam$(4))-I):GOTO 30 
0 
280 IF a$<CHR$(32) OR a$}CHR$(128) 
THEN PRINTICHR$(7);:GOTO 240 
?90 nareS(4) nam$(4 va$ 
300 LOCATE 16?DPRINT nareS(4}+" "; 
310 IF LEN(nam$(4))=9 60TO 330 
32 r 6OTO ?40 
30 REM .... Elige nivel --- 
TaO PAPER O:FEN 3:INK 3,26:CLS 
M< LOCATE II,IX:PRINT"ELIGE NIVEL 
60 a$=INKEY$:IF aS .... GOTO 360 
370 IF a$""O" OR a$}'9" GOTO 360 
380 I x,e-VAi. 
4rK RTURN 
42r vmr-C,=hor- 
40 DIM 
440 DIM cm:-d$2Rl 
40 
480 REM 
490 F,I,xyer-p]ayu MOD 
50A IF player) THEN pleyer=l 
5'.0 CI. S2 
52 r] P'RINT@4 , nm$ (p! ayer ) 
0 nSUB 3490 
550 
50 FOR ficha- TO 
I0: n?l 0: GOTO 
50 n?-VALRIGHT$(pI$D1y'r 
20 IF nl-(}ado) 
r NFXT 1 ad 
640 NEXT 
650 c tc-r GOTO 1440 
660 RM --- Aslgna valores 
670 FOR ihal TO 
BO CL.S2 
69<1 FOR lado=i TO 
700 F v]or(plyer.ich,do]-O 
OTO 
910 n VAI (LEFT(pl$(playeriEha) 
720 2 VAL (RIGHTS (pl $ (p] ayr,  i thai 
730 REN --- Comprueba  e icha d 

74(: IF nlmn2 "fHEN valor(playerich 
a, lado) lO0+nl*i2:dob-l:GOTO 950 
75(: IF r?-¢,lado) THEM t-nl:nl n2:n 
76(I REM --- Comprueba sl la icha 
ierra el uego 
90 REM ..... buscando mas ichas con 
980 total=O 
790 FOR w=1 TO 28 
800 IF INSTR(I.card$(w).RIGHT$(STR$ 
(n2)  I))<>0 THEN total-total+l 
I0 NEXT w 
820 IF total-I GOTO 950 
830 valor <player,lua.ladc-valbr 
layer,Ichalado)+10n2knl 
aO REM --- Compreb .i alguq play 
er pasn do n2 --- 
850 FOR l  TO 4 
B60 IF pl=player GOTO 80 
q70 IF pasa<pl?) ci HE valor(pl 
aver  icha ldo) vl or (player, ih 
  adn) 5+n2+n' 
80 NEXT 
o REM .... Mr !a !has de play 
er que contengan n2 -- 
900 
91r FOR I=I TO 7 
990 F INSTR(!,pl(player,i).RIGHT 
$<STR$<n2) I) ><>0 THEN total -total 
I +n2mn I 
930 NEXT 
90 val or <pl aer  iha. I ado) =val ur ( 
player  icha I ado) +2t otl 
50 NEXT ! ado 
96A NEXT cha 
970 REM .... Coloc y rden lo = val 
ores de las ichas --- 
osn ERASE Igada:DIM 
990 FOR icha I TO 7 
1000 FOR lado-I TO 3 STEP 2 
1010 F v,lor<playPr.iha,l,o)<u 
I Rd 9SLII" 
IO-O NEXT 
lg60 IF doh  "[HEN w 9:GOTO 
' 070 w 1 evel + I tiT ( (  O- ] E.vel ) 
gda(I,?)) O THEN . wI:GOTQ IOBO 
I ( ql-U# ([ EFT$(pl(plmyericha) 
I?0 n2-VA; (RIGHT$ (pl $ (p Iayer   i zh 
40 WHILE ard$(v} 
ha 
I150 v v+1 
1  0 WEND 
i170 
i8) pl$(p] ayer  fich) .... 
0 PLOT - 20 
I?00 OSUB 1970 
]21C GOSLIE( 390 
I720 OlJ 3490 
23q' FM --- Eompueba sl player ha 
terminado --- 
124r tnta]-O 
1250 FOR $iche  TO 7 
76o IF p]$(player,icha)':>"" THEN 
fotal=l 
1770 NEXT &icha 
1280 IF total-O GOTO 6550 
1290 pl yer-p] ayer+l 
]0o IF player<4 GOTO 47Q ELSE 
I16) REM --- Ordena ]o5 valores de 
las flchas .... 
133,> WHI E modi=5i 
1340 ,od -no 
1350 FOR -O TO  
l#,r IF valnr (player,3ugada(w,1) 
gada(2))<=valor (playerugada(+l 
),3ugada(w*l,?}) GOTO 1410 
370 FOR v-1 TO 2 
380 t-ugada(wv): jugada(v)-3uga 
da (+1 , v) : ]ugada (+1  v) t 
13 qr IEXT 

laO.O mndi 
I 47¢ WFND 
#a(' REM --- Playur pasa --- 
1450 plyFa=p!aypas+l: IF playpas-4 
GOTO 
146C' paa(R ,yer,n(l)) 
1470 pa<pla,ler,P<3) )=si 
15of qq IND 
1r FOR q-I TO 3000:NEXT 
153 IF player4 THEN GOSUB 3830 
1540 GQSUB 3490 
1550 GOTO 1290 
15r REM .... Turno del jugador nume 
1570 C S#?:p] 
IMS pRINTn ,n,m$p 
i6'20 OTq 17£)0 
16( WHILE INFEY$<X"":WENb 
lb60 IF aS CH(I?) GOTO 730 
16RO zl cha=fich,+l 
1700 IF pl$(4,cha ""GOTO 680 
1720 GOTO 1630 
174a REM cemprueba la e, lidcz de la 
.I)) 
1760 n2 VA (RIGHT$(pl$(player,*zha 
177o IF nl n(1) R nl-n(3) OR n2-n( 
i) OR n2-n(3) GOTO 320 
17O PRINT#?"INVALIDO"::SOUND 
790 FOR w-1 TO 2000:NEXT 
180h CI 
110 BOTO lb40 
1820 REM icha va1da 
180 PRINT CHR$(23)CHF:I(O) 
J840 PLOT 
1850 GOSUB 
187Cl WHIFF 
1880 =w+ I 
 mwO WEND 
1900 cardS(w)-"" 
1910 pl $(4, icha) 
1920 IF pas(4,nl)=sl GOTO 7360 
19>0 t-nl:nl n2:n2 t 
1940 IF pa=a(4nl)-sl GOTO 7360 
950 IF beguin-si THEN RETURN 
1960 GOTO 1230 
97(: RFM ..... Borra cha de los 
ugador es I-3 ......... 
]990 CALL 
9Ci(lC} TAG 
?Ar ON player GOSUB 20402100,2150 
2020 TAGOFF 
200 RETURN 
2040 REM -- Borra ich de player 
2050 
2060 yp 68+38icha 
2070 MOVE xpyp:PR!NT CHR(247) 
2080 MOVE xp,yp+16:PRINT CHR$<246) 
2090 RETURN 
2100 REM --- Brra ha de player 
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2Rf r' 
2810 REM ]ugado 4 
?P90 ('.ALL 
2830 PI QT -'2 -?, 1 
2840 icha-I 
?5<: FOR x=188 TO 452 STEP 38 
2860 y=bO 
2870 nI=VAL(LEFT$(pI$(4,icha), I 
2880 n2=VAL (RIGHTS (p! $ (4   i cha 
2890 GOSIJB 5990 

2900 fichaficha+1 
2910 bJEXT 
2920 RETiJRN 
790 PEN ................... CARACTER 
ES Y TINTAS ........... 
2940 REM 
2950 BORDER II:INK O, II:INK !.O:INK 
2,13:INK 326 
2960 PAPER O:CLS 
?70 WINDOW#1437,321 
?80 WINDOW#2,1SII 
290 WINDOW#37,34,7, I7 
3¢)00 WINDOW#43240, !. 1 
010 WINDOW#5 11X0 I0 14 
020 PAPER# 1 
3030 PAPER#2O:F'EN#2I 
3040 PAPER#3I:PEN #33 
3050 PAPER#4,rI:PEN #4,1 
3060 PAPER#5I:PEN #50 
3070 SYMBOL 240,126,12612612.126 
126126127 
3080 SYMBOL 241,127126,126,126,126 
,126126,126 
090 SYMBOL 242I255,255255,2552 
552550 
31r)O SYMBOL 243,128,255,255,255,255 
255,2550 
3110 SYMBOL 244,12,126.126126,126 
126,126,254 
3120 SYMBOL 245,25.126,126,126,126 
.126126126 
3150 SYMBOL 248,1255,128128255,2 
552550 
3160 SYMBOL 249.128,255,1,I,25[255 
]70 SYMBOL 250,1268,78787878 
78,206 
31R0 SYMBOt 25!20678787878,78 
7826 
3190 SYMBOL 252,255,128,128,128,128 
,128.128128 
3200 SYMBOL 253255ii1II,II 
210 SYMBOL 254128.128128128128 
.128,128255 
3220 SYMBOL 255I,1III,Ii255 
3?30 RETURN 
3240 REM ............... REPARTE FIEHA 
X250 RFM 
76A RANDOMITE TIME 
270 GOSLIB 3390 
3280 REM Reprte FichaE 
290 FOR player=i TO 
3300 FOR iche i TO 7 
0 MET lyer 
7r! qgSrl 3390 
380 RETURH 
x¢ PEM ............... ASIGNA FICHAS 
3400 REM 
3410 -1 
742< FOR a=O TO 
3a30 FOR b a TO 
+RIGHT$(STR$(b|) 
3450  w+ 
3460 NEYT h 
3470 NYT a 
48i RETURN 
xmVO REM --- Colorea las ichas de 
los jgdores al tirar --- 
350" REM 

30 PRINT CHR$(23)+CHR$(1) 
3520 PLOT -2,-2,2:CALL &BBE4 
530 TAB 
3540 ON player GOSUB 3570,36603740 
3550 TAGOFF 
56o RFTLIRN 
3570 REM ugador I 
3580 xp=616 
3590 FOR icha I TO 7 
3600 IF pl$(playericha)= .... GOTO 3 
64O 
3610 yp 68+38icha 
3620 MOVE xpyp:RRINT CHR${241) 

3630 MOVF xp,yp+Ib:PRINT CHR$<240); 
640 NEXT ficha 
650 RETURN 
360 REM jugador 2 
670 yp-392 
3680 FOR icha I TO 7 
369¢I IF pl$(player,ficha)="" GOTO 3 
?20 
300 xp 150+385ficha 
3710 MOVE xp,yp:PRINT CHR$(242);CHR 
$(24x); 
3720 NEXT flcha 
730 RETURN 
3740 REM jugador 3 
75(, xp-6 
3760 FOR flcha=l TO 7 
3770 IF pl$(playericha="" GOTO 3 
810 
TRO yp=68÷381icha 
3790 MOVE p,yp:PRINT CHR$(245) 
380< MOVE :p.yp+I6:PRINT CHR$(244); 
3810 NEXT 
%20 RETIRN 
380 REM Colorem la ;Icha de player4 
3840 TAG 
3850 xp18S+(f;cha-1)38 
386r POR yp=60 TO 0 STEP 
382O MOV xp0yp 
3880 PRINT CHR$(14)CHR$(143); 
38r NEXT yp 
3900 TAOOFF 
39( ' C'FT|.IRN 
3°9(I PEM .............. CALCULA COO 
RDENADAS DE LA FICHA ........... 
3930 REM 
394(: playpas=O 
3950 IF player<?.4 THEN a=lado:GOTO 
4040 
960 IF ¢ll>nt3 AND nl<>l(I) HEbl 
t-nlnl n?zn2=f 
397< IF nl'>P(3) AND rle>n(1) 
PETI]RN:REM Flcha no valide 
90 IF pl-r2 GOTO 5080 
3990 IF n(1)<>n(3) GOTO 4020 
400<! m-RND10+I 
4010 IF a>4 THEN a3 ELSE 
40?0 IF (nl n(3) AND n2-n(1)) OR 
I n(1) AND n2n(3)) TIIEN GOSUB 5540 
: OTO 404C' 
403O IF hi=n(1) THEN a I ELSE a=3 
4040 IF nl-n2 GOTO 5080 
4('50 IF col(a)=ver GOTO 4550:REM 
iota despues de una vertical 
4060 IF doble(a) I GOTO 4330:REM cc 
Iota despues de una doble horizonta 
l 
4070 REM coloca despises dc una her( 
zonal normal 
4090 fF xbtepizd AND x<toper GOTO 
429¢:REM cas= 1 
4!0 x-x(a)+32sen(a) 
4I0 IF x>toplzd AND x<topder GOTO 
4200:REM case 2 
412o REM cao 3top si 

4130 x=x (a) 
4140 IF sen(a) I THEN x=x-2 
4150 y=y(a)+4l(a-2):IF a=3 THEN y 
y-2 
4160 top (a)=sl 
4170 col (a)=ver 
4180 doble (a) =no 
4190 GOTO 5650 
42c:( REM caso 2,top casl 
4210 x-x(a)+34sen(a):IF sen()-.-I 
THEN x-x-2 
4220 y y(a) 
4230 IF a 3 THEN y=y-2 
4240 top(a)-csi 
4.950 Col (a)-ver 
4260 GOTQ 5650 
4270 REM ao ltopno 
4C0 top (a) 
alO cnl (a)=hor 
4320 GOTO 5650 
a30 REM despues de icha doble 
4340 IF top(a)=si GOTO 4480 
4350 IF top(a)-casi GOTO 4420 
4360 REM top=no,case 1 
4370 -x (a) +66Ssen (a) 
4380 y-y (a) +161 (a-2) 
4390 cnl (m)-hor 

4 YICIOHOBBY AA$'RAD 



4¢00 GOTO 5650 
44'0 dohle(a) no 
44?0 REN top=casi;caso 2 
4430 :=x<a) 
4440 y 
4450 col a) vr 
4460 GOTO 5650 
4480 RM top=si:caso 
5!0 
45?0 coI (a) her 
45Z0 dh]eca) nc 
a540 GOTO 5650 
5c RM despues d ficha vortical 
450 IF dnb]; 
=70 'F fop(a=ca • SOTO 4660 
4590 s=n( 
 I0 v-y(a*30I(a-2): IF 
6PO top () n 
640 r (a-hot 
4650 GOTO 550 
i6A PM top casi ;case 4 
a6RO x=x() 64sen(a) : IF sen(a)=-1 
THFN x=x+2 

4awe y y<a)+64*(a-2):IF a-3 THEN y- 
y+2 
4700 col (a)=hor 
47J0 top(a)-no 
4720 GOTO 5650 
4730 REM fcha despues dc doble vet 
tical 
4740 IF top(a)=si GOTO 5000 
4750 
4760 IF x>topizd AND ×<topder GOTO 
4930;REM case I 
4770 x--xta)+325senta) 
4780 IF x>topizd AND x<topder GOTO 
4R6O:REM case 2 
4790 REM case 311op-si despues de d 
able vertical 
4800 x x 
4810 y=y (a) +64 (a-2 : IF 
y+2 
48?0 op(a=si 
4830 dobl() no 
4840 cnlra)-ver 
485A 80T0 5650 
60 REM came 2;tp casi despues de 
doble vertical 
4870  x(a) 
4880 y=y(a)+64(a--2) 
490 top(a)-sl 
4900 dob1(a)-no 
4910 col(a)=ver 
4920 GOT8 5650 
4930 REM caso 1|top-no despues de d 
able vertical 

' $  RIP¢ION DEL PROGRAMA 

Se utilizan los sigubntes variables pora el juego: 
a=l para el lado izquierdo y a=3 para el derecho; de este farina: 
n(a) es la ficha del extremo (la que queda libre) de cado lado. 
x(a) e y(a) son los coordenadas grficas de la gltima ficha colocada en el lado a. 
col(a) es la colocaci6n de la gltima ficha 1 si es horizontal y 0 si es vertical. 
sen(a) es el senticlo hacia donde se est6n colocando los fichas del lado a; su valor es -1 si es 
hacia la izquierda +1 si es hacia la derecho. 
doble(a) indica si la gltima ficha colocada es doble. Si= 1 no=0. 
top(a) es una variable que hace referencia a los extremos derecho e izquierdo (tapder y topiz). 
Puede valet l(si) si no se pueden colocar m6s fichas hacia ese lado, ni verticales ni horizontales. 
Vale O(no) si es puede colocar una ficha horizontal y vale 2(casi) si se puede colocar una vertical 
pero no una horizontal. Esta variable nos da una idea sabre c6mo tienen que ir colocadas 
fkhas cuando Ilegan al extremo del tablero. 
Antes de tirar, se comprueba que el jugodor tiene alguna ficha para tirar, comparndolas con 
n(1) y n(3). Si esto no ocurre se pasa directamente a Io rutina 
A coda ficha se le da un valor atendiendo a los siguientes parmetros: 
1. o Se coloca una ficha de doble (100 puntos). 
2. o Se compruebo que no cierra el juego, buscando m6s fichas con ese valor (1 punto si na cierra 
el/uego). 
3. 0 Da 5 puntos m6s a cada ficha que haya pasado algOn jugador. Los fichas de los jugadores 
que pasan se almacenan en la tabla pasa (/ugador, ficha). 
4. o Suma 1 punto par cada ficha que tenga el jugador de ese valor. 
52 A cada valor de la ficha se le a.ade el de los puntos que le componen, de esta forma, se 
tirar6n antes los fichas altos que los bajas para rebajar puntos. 
Una vez efectuada la puntuaci6n, se ordena la tabla de valoraci6n, valor (player, ficha, lado), 
segOn sus puntos y se pasan a la tabla de los jugadores (jugada, nivel, parSmetro). 
Los parametros son: 
1 para la ficha. 
2 para el lado a colocar l=izquierdo y 3=derecho. 
Ahora se elige la ficha seg0n el nivel. 
A nivel mbs alto se escoge la jugada (nivel, parametro) m6s alta. 
Despu6s de cada tirada se comprueba si el jugador ha terminodo y en el caso del jugador 4, 
habia pasado anteriormente de alg0n valor de esa ficha; si es asi va a la rutina renuncio y se 
finalizo convenientemente (30 puntos m#s). 
AI jugador que ocaben se le restan 10 puntos y a los dem6s se les suma el valor de los fichas. El 
programa est6 abundantemente ayudado par instrucciones crem)) que ayudon a una mejor 
comprensi6n de las rutinas. 
Lo rutina gr6fica forma par si solo una unidad independiente ya que es copaz de determinar si 
una ficha es o no v61ida. 
Los parametros de entrada son nl y n2 para el valor de la ficha (no importa el arden). Si el 
jugador es el 1, 2 o 3 se necesita la variable lado (1 3) para determinar el lugar a colocorlo; en 
caso de que el jugador sea el cuarto se le preguntara a que lado quiere colocarlo, si la posici6n es 
ambigua. N6tese que el lado DERECHO SIEMPRE ES EL QUE VA HACIA ARRIBA Y EL IZQUIERDO 
HACIA ABAJO aunque los posiciones de las fichas en ese momenta puedan parecer confusas. 

440 x=x(a)+66sen(a):IF sen<a) 1 T 
HEN 
a950 y y(a)+Ib=(a-2) 
4960 top(e) no 
4970 dble(a)=no 
490 col (a)=hor 
4990 GOTO 5650 
5000 REM coloca ficha despues de do 
hle con top=si 
5010 sen(a)--sen(a) 
5020 x x(a)+98*sen(a):IF sen<a)-si 
THEN 
5030 y=y(a)+30:(a-2):IF a=3 THEN 
y+2 
5040 top(a) no 
5050 col(a)=hor 
5060 doble(a)=nc 
5070 GOTO 5650 
50eO EM celoca &icha doble 
590 IF nl-n(1) THEN a-1 ELSE a-3 
IO0 IF col(at vet GOTO 5360 
5110 x 
170 IF "'trrd AND >'<tepd=r GTO 
5130 x=x(ai*?tsr'n(a) 
5140 IF Xtoptzd AND ::<topder 
5?20 
5150 REM top-¢i;caso 
5160 =x(a):IF n(a) I THEN x ×-2 
517o y=y(a)+34(a-2) 
5180 top(a)-si 
590 col(a) vet 
5?00 doble<a) 
510 80T0 5650 
5220 REN top=casi;caso 2 
523¢) ×=×(a)+34=sen(a):IF sen<a)--1 
THEN 
5240 y=y<a)-16(a-2) 
5250 top<a)=casl 
5260 col(a)=ver 
5270 doble(a)=si 
5280 GOTO 5650 
5290 REM top=no,case 1 
5300 x=x<a+345sena):IF sen<a)=-1 
THEN 
5310 y=y(a)-16*(a-2) 
5320 top<a) no 
5330 col(a)=ver 
5340 doble(a)=sl 
5350 GOTO 5650 
5360 8EM coloca ficha doble en hori 
zontal 
5370 F top(a)=s GOTO 5460:REM cas 
ol 
5380 REM top=casi 
590 sen(a)=-en<a) 
540 x=×(a)+48sen<a):IF sen(a) 1 T 
HEN 
5410 y-y(a)+bb(a-2) 
5420 col(a)=hor 
5430 dble(a)-no 
5440 top(a)-no 
5450 GOTO 5650 
5460 REH top=si 
5470 sen(a)-sen(a) 
5480 x x(a)+gSSsen(a):IF sen(a)-1T 
HEN 
5490 y=y(a)+30(a-2):IF a 
y+2 
5500 top(a) no 
5510 col(a)=ho 
5520 doble(a)=no 
5530 GOTO 5650 
5540 RE ....... Dec(de lade a 
5550 IF y(1)<370-y(3) THEN po=20 EL 
SE po=l 
5560 LOCATE#19po 
5570 PRINT#1CHR$(174)+"A qkte ]ado  
(D/I)" 
5580 a$=IJPPER$(INKEY$):IF aS-"" GOT 
0 5580 
5590 IF a$-"D" THEN a-3:GOTO 5620 
5600 IF a$="I" THEN a=I:GOTO 5620 
5610 GOTO 5580 
5620 LOCATE#t9po:PRINT#1SPACE(1 
9) 
5630 PAPE 0 
5640 RETURN 
5650 REM ............ DIU3A LA FIC 
HA ........... 
5660 REM --- Borra la icha dl jug 
ador --- 



5670 PRINT CHR$(23)+CHR$(O 
5680 PLOT 
56@0 IF player4 THEN 80SUB 3830:S0 
TO 5720 
5700 GOSB 1970 
571 REM 
5720 CALL &BBE4,0,O,O 
5730 IF y>350+(co1(a)-I)16 THEN FO 
R -I TO 3:LOCATEWI,I,I:PRINT#1,CHR 
$(S):y=y-16:y(1)=y(1)-I6:NEXT:80TO 
5730 
5740 IF <112+ABS((col (a)-I);16) TH 
EN FOR z=1 TO 2:LOCATE #1,1,25:PRIN 
T#]:Y'y+16:y(31=y(3)+Ib:NEXT:GOTO 5 
5750 
576h y(a)=y 
5970 IF nl<>n(a) THEN t=n1:n1=n2:n2 
-t 
5780 n(a)-n2 
5790 IF sen(a)=-1 THEN t-n1:nl=n2)n 
5800 IF col(a)=ver THEN 5940 
5810 REM ............ COLOA FIHA 
HORIZONTAL ........... 
5820 REM 
5830 LOATE 1,1:PRINT CHR$(23)+CHR$ 
(0); 
5840 PLOT -2,-2,1 
5850 IF sen(a)-1 THEN 
5860 num-nl 
5870 80SUB 6100 
5880 MOVE x+28,y-14mGOSUB 6470 
5890 x=w+30:BOUND 2600,5m7,002 
5900 num=n2 
5910 80SUB 6100 
5920 MOVE x,y-14OOSUB 6470 
5930 RETURN 
5940 REM ............ COLOCA FIHA 
VERTICAL ................ 
5950 REM 
5960 IF a=3 THEN y=y+32 
5970 IF (a-I AND sen(a)=-1) OR 
AND sen(a)=1) THEN t=nlinl=n21n2-t 
5980 IF sen(a)=1 THEN 
5990 REM ............ AQUI DIBUJA L 
AS FICHAS DEL PRINCIPIO ........ 
6000 PRINT CHR$(23)+CHR$(O) 
6010 PLOT 
6020 num=n1+7 
6030 GOSUB 6100 
6040 MOVE x+Ia,y-28:GOSUB 6470 
6050 y=y-30:SOUND 2m600,57mOmO2 
6060 hum=n2÷7 
6070 80SUB I00 
6080 MOVE x+14,y:GOSUB 6470 
6090 RETURN 
610o REM ............ DIBUJO DEL CUA 
DRO .......... 
6110 REM 
6120 TO 
6130 MOVE w,y:PRINT CHR$(252)+CHR$( 
253); 
6140 MOVE ×,y-IIPRINT CHR$(254)+CH 
R$(255); 
6150 RESTORE 

6160 READ w 
6170 WHILE w<Xnum 
6180 FOR z I TO I0 
6190 READ w 
6200 NET z 
21 WEND 
??0 MOVE 
6240 FOR c I TO 
6250 READ t 
6?60 IF t=l THEN GOSUB 6470 
6270 MOVER 8,0 
6280 NEXT c 
6290 MOVER 
6300 NEXT b 
6310 TAGOFF 
6320 RETURN 
8330 DATA 0,0,0,0,0,0,0,0,0,0 
6340 DATA 1,0,00,0,1,0,0,0,0 
6350 DATA 20,0, I00,0, I,0,0 
6360 DATA 3,00, I,0, I0i,0,0 
6370 DATA 4,1,0,1,00,0, I0I 
6380 DATA 5i0, I=0I0=I01 
6390 DATA 6,11,1,0,001,1,1 
6400 DATA 70000,0,000,0 
6410 DATA 8,0,0,0,0I,0,0,00 
6420 DATA 9I0=0,00000I 

6430 DATA 101,0,0,0,1,0,0,0,1 
6440 DATA 11,1,0, I,000,1,0,1 
6450 DATA 12,1,0,1,0,10, I0, I 
6460 DATA 13,10, I,1,0, I=I,0=I 
6470 REM ............... DIBUJO DEL 
PUNTO ............. 
6480 REM 
6490 PLOTR 0,0,1 
6500 PLOTR 2,0 
6510 PLOTR 0,-2 
6520 PLOTR -20 
6530 MOVER 0,2 
6540 RETURN 
&550 REM --- Final de la partida y 
calcula puntos 
6560 CLS#5 
6570 PRINT#5:PRINT#5:PRINT#5," 8 
ana ";nam$(player) 
658(: win-player 
6590 GOSUD 7600REM musica 
6600 a=t:sen(a)--1 
6610 FOR player=1 TO 4;puntos(playe 
r)=O:NEXT player 
6620 CALL &BBE4,0O,O:PLOT -2,-2I 
6630 sen(a)=-1 
6640 REM player I 
6650 player-1:IF player=win THEN pu 
nos(player)=-10|GOTO 6750 
6660 FOR (icha=l TO 7 
6670 IF pl$(player,ficha)="" GOTO 
740 
6680 x-574 
690 y=84+icha38 
6700 n1=VAL(LEFT$(pl$(player,icha) 
,I)) 
670 n2=VA|.RlSHT$(pl$<player,icha 
)I)) 
6720 puntos(player)=puntos(player)+ 
n1+n2 
6730 80SUB 5810 
6740 NEXT icha 
&750 REM player 2 
6760 player=2IF player-win THEN pu 
ntos(player)-10:GOTO 
6770 FOR icha=l TO 7 
6780 IF pl(playerich)="" GOTO 
50 
6790 x-150+icha38 
6800 y-398 
A810 nl VAL(LEFT$(pl$(plyer,÷icha) 
,I)) 
6820 n2=VAL(RIGHT$(pl$playcr,ficha 
),I)) 
S3ei puntO=m(plyer)-pllnto(player)÷ 
nl+q2 
6840 OOSUB 6000 
6R50 NEXT 
,6f: RFM player 3 
870 plyer:I player=in THEN pu 
ntos(player)--10:GOTO 6970 
6880 FOR icha I TO 7 
aAO IF p1(player,÷icha)="" SOTO 
6900 x-O 
6910 y84+Icha38 
6920 n1=VAL(LEFT$(pl$(player,(icha) 
I)) 
6930 2=VAL(RIGHT$(pl$(player,icha 
)I)) 
@4 puntos(player) punto(player)+ 
n1+n2 
6950 BOSLJB 5810 
6960 NEXT ficha 
6970 REM player 4 
6980 player=4:IF player=in THEN pu 
ntis(player) -IO:GOTO 7050 
6990 FOR cha=1 TO 7 
7Otto IF pl$(player,ficha)="" GOTO 7 
040 
7010 n1=VAL(l. EFT$(pl$(player(icha) 
7020 n2=VAL(RIGHT$(pl$(player,÷icha 
),I)) 
7030 puntos(player)=puntos(player)+ 
nl+n2 
7040 NEXT icha 
7050 REM --- Puntuacion --- 
7<60 CLSW3PRINT#3 
7070 PRINT#3,TAB(4);"NOMBRE" TAB(14 
)"PUNTOS" TAB(23);"TOTAL" 
70RO PRINT#3 
7090 FOR player=1 TO 4 
7100 total(player)=tdtal(player)+pu 
ntos(player) 

6 /coHoY AMSTRAD 

7110 name$=LEFT$(nam$(player)+STRIN 
G$(II,"."),11) 
7120 c$(player,1) nam$(player):sc 
o$(player,2}=STR$(puntos(player)):s 
co$(playere3)=STR$(total(player)) 
7130 NEXT player 
740 REM .... Orden la tabla --- 
7150 modi-sl 
76) WHILE modi 
7170 modi=no 
70 FOR player=1 TO 3 
7190 IF VAL(=co$(players3))<=VAL(sc 
o$(player+1,3)) GOTO 7240 
7200 FOR =I TO 3 
7210 t$=sco$(player,w)sco$(player, 
w)=mco$(player+1,w):sco$(player+1 
7?20 NEXT 
77XA modif=si 
7240 NEXT player 
7260 FOR player=1 TO 
7270 IF p]ayer=l THEN PEN#3,0 ELSE 
PEN#3,3 
7280 PRINT#3,TAB(2) isco(player,1) 
TAB(15);sco$(p]ayer,2) TAB(24)sco$ 
(p).ayer,3) 
7290 RINT#3 
7300 NEX  player 
7I0 lOCATE #1,9,19:PRINT#I,CHR$(17 
a)"fra 0artJda o (S'Ni" 
7320 a$=INKEY$:IF $ .... 800 7720 
7330 IF a$="S" OR a$="s" THEN ERASE 
pasaDIM pasa(4,6):GOSUB 330:n 0 
:80T0 140 
7340 IF a$="N" OR a$="n" THEN RUN 
7350 GOTO 7320 
7360 REM ..... Renuncio --- 
7370 CLS#3:LOCATE#3,8,4:PRINTW3s"R 
E N U N C I 0"! 
7380 PRINT#3:PRINT#3:PRINT#3 
790 INK 3,6,26 
7400 SOUND I2000,5007 
7410 SUND 2,200s500,7 
7420.fINT#3:PRINT#3, '' Ante pasas 
te de "! 
7430 IF nl-O THEN PRINT#3,"BLANCAS" 
7440 IF ni-I THEN PRINT#3"UNOS"; 
7450 IF ni=2 THEN PRINT#3"DOSES" 
7460 IF n1=3 THEN PRINT#3s"TRESES" 
7470 IF ni=4 THEN PRINTW3,"CUATROS" 
7480 IF ni=5 THEN PRINT#3,"CINCOS" 
7490 IF ni=6 THEN PRINT#3"SEISES" 
7500 REM --- Penaliza --- 
7510.puntos(4}=30 
7520 FOR w=1 TO 5000:NEXT 
7530 GOTO 7050 
7540 REM .... Be cierra el uego 
7550 REM musica 
7560 REM muica 
7570 PAPER#1,2:PEN#1,3 
7580 LOCATE#1IO,20:PRINT#1"Juego 
trmnad" 
7590 GOTO 6610 
7600 REM --- Felicidades --- 
7I0 RESTORE 7660 
7620 READ nota,dur:IF nota-O THEN R 
ETURN 
7630 SOUND 1,nota/2dur,7:SOUND 1,0 
,2 
7640 SOUND 4sntai2sdur,6:SOUND 4,0 
2 
7650 GOTO 7620 
7660 DATA 322,30,287,30,25630,242, 
60322,90,24230s25630,242,30,215, 
60287s90,28730,256,30s24230,192, 
45,21512,215,30s242,27s242,30,256, 
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Prolramar ya no .es. Io que era, eso Io sabemos 
tooos. En el princpo fueron lenguajes de baio 
nivel, despus, coma todo Io viva, fueron 
evolucionando hasta alcanzar la verbosidad 
anglosajona del Basic, rey sin corona de la 
inforrn6tica personal. 

bstante, 
no s6io de un lenguaje vive un pro- 
grama, en la compleja labor de 
crear un pragrama, hay muchas par- 
tes que pueden ser resueltas par el 
ordenador sin apenas intervenci6n 
humana, tareas repetitivas o caren- 
tes de creatividad que una mquina 
puede realizar perfectamen[e. 
Entra aqui el cancepto clave de 
(Herramienta del programador), en 
el sentido de un programa que com- 
pleta al lenguaje que estemos utili- 
zando para dar luz un programa. 
Algunos nombres famosos de he- 
rramientas: editores, optimizadores, 
generadores de programa, depura- 
dores... Los hay por docenas, y to- 
dos, tarde o temprano, son necesa- 
rios. AMSTRAD Semanal es conscien- 
te de tada esto, y de qye el progra- 
mador se encuentra bastante desa- 
sistido en este asunta; par ella, he- 
mos decidido abrir una nueva sec- 
ci6n que remedie el problema en la 
medida de Io posible. 

Utilidades del programador se 
estrena con un gran programa: un 
compresor. 
Esta utilidad est6 pensada para eli- 
minar de cualquier programa todo 
aquello que al ordenador no le sir- 
ve para nada a la hora de ejecutar 
el programa, como por ejemplo es- 
pacios en blanco innecesarios y sen- 
tencias REM, La del compresor se 
traduce en que los programas pasa- 
dos por su filtro ocupan bastante me- 
nos memoria y se ejecutan mcs rpi- 
damente. 
Esto permite tener dos versiones 
del programa: una de elias, para no- 
sotros, Ilena de todo Io que sea im- 
portante para hacerlo legible y f¢cil 
de modificar, y, la otra, especialmen- 
te dedicada al Amstrad, que pasa 
de tales banalidades. 
Compresor es un programa que 
disminuye la ocupaci6n de memoria 
de un programa BASIC, eliminando 
los caracteres que ocupan memoria 
y son imnecesarios para el correcto 
funcionamiento del programa. Su uti- 
lidad es: 
-- Ahorra espacio en disco y dis- 
minuye el tiempo de carga en cinta. 
-- Aumenta la velocidad de ejecu- 
ci6n (s61o un poco, no espere mila- 
gros). 
-- Permite mayor libertad de es- 
critura. En efecto, cuando se necesi- 
ta un programa muy largo que utili- 
ce tablas de dimensi6n elevada po- 
demos obtener un MEMORY FULL si 
hemos Ilenado el programa de espa- 
cios y comentarios. Con compresor 
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podr6 escribir libremente y depurar 
con mayor facilidad, ya queen el 
momento en que se le agote la me- 
moria bastar6 una pasada por 61 y 
tendr6 la memeoria que necesita. 
Puede pensarse que el suprimir li- 
neas REM puede hacerse con facili- 
dad a mano, pero un programa lar- 
go presenta mucho trabajo y adem6s 
si existen <Gotos. gosubs .... diri- 
idos a las lineas REM (Io cuales muy 
ecuente deber6 buscar esas lineas, 
editarlas... 
Compresor realiza esta funci6n 
automcticamente y adem6s: 
-- Elimina todos los espacios no 
significativos de las lineas de progra- 
mo. 
-- Suprime las posibles REM a me- 
dia linea (tambi6n reconoce el ap6s- 
trofo). 
-- Quita las variables de control 
tras NEXT. Si la next es mOltiple la 
sustituye por tantas NEXT, como 
sean necesarias. 
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Tal vez le parezca que NEXT i, I, 
k ocupa menos que NEXT:NEXT: 
NEXT; pero el mado que tiene BA- 
SIC de codificaci6n interna hace que 
no sea asi. Adem6s el NEXT sin va- 
riable se ejecuta con mrs rapidez 
porque na necesita comprobar si el 
nombre coincide con el bucle actual. 
Aclem6s de esto realiza una uni6n 
de lineas, es decir: cuanclo dos Ifneas 
seguidas pueden unirse sin modificar 
la estructura del programa (la pr/me- 
ra no contiene un IF y la segunda no 
es objeto de un GOTO u otra refe- 
rencia a su n(mero de I[nea) supri- 
me el nOmero de linea y Io sustituye 
por (:). Este proceso se reitera mien- 
tras la Iongitucl de las dos Ifneas uni- 
das no sea clemasiado largo para 
que el BASIC la aclmita. 
Casos no previstos: 
-- Si su programa utiliza una ruff- 
na de gesti6n de errores con referen- 
cia mediante ERL a n0meros cle linea 
determinados, puecle ser que tras la 

compresion dicho numero de Nnas no 
exista y la gesti6n de error no d6 el 
resultaclo previsto. 
-- Si el programa utiliza CHAIN 
MERGE .... DELETE .... puede ocurrir 
que la versi6n comprimida le deje al- 
guna linea de m6s o de menos. 
-- En fin, si su programa utiliza re- 
ferencia a nOmeros de linea no pre- 
vista por el programa, los resultados 
son imprevisi.bles. 
-- Para solucionarlo se ha inclui- 
do una opci6n comprimir paso a 
paso>>, que tras comprimir una linea, 
antes de intentar unirla a la anterior 
espera la pulsaci6n de una tecla. Si 
quiere impedir que el programa tra- 
te de Ilevar a cabo la uni6n <<TAB, 
en casa contrario basta con pulsar 
cualquier otra tecla. Lo 0nico que tie- 
ne que hacer es revisar el programa 
antes de comprimir y tomar nora de 
cu61es son las lineas que interesa de- 
jar aisladas. Despu6s lance el corn- 

presor, use esta opci6n y pulse teclas 
cada vez que un cursor parpadean- 
te aparezca al final de la 61tima linea 
del Programa comprimido>> en la 
ventana inferior. Pulse <dab>> cada 
vez que la necesite, y listo. 

Modo de utilization 

Cargue el programa compresor. 
Aparecer6 en pantalla un recuadro 
con unas breves instrucciones de uti- 
lizaci6n. Pulse una tecla al terminar 
las instrucciones, aparecer6 el men- 
saje <Espere un momento>>. 
Tras unos segundos que emplea en 
inicializar variables, el programa pi- 
de el nombre del programa que se 
va a comprimir. 
En este momento debe introducir 
en su Amstrad la cinta o disco que 
contiene el pragrama que desea 
comprimir grabado en formato AS- 
CII. 
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La cuesti6n del formato requiere 
algOn comentario: los manuales de 
usuario de los Amstrad indican sim- 
plemente que la arden save admite 
el par6metro (,A) despu6s del nom- 
bre del programa para grabar el 
formato ASCII. Los diferencias del 
SAVE normal con 6ste son: 
-- Grabado en disco, no se inclu- 
ye BAS coma tipo del fichero. 
-- El fichero se graba sin cabece- 
ra: CP/ y la mayoria de los proce- 
sadores de textos podr6n acceder a 
61 (EAMSWORD no,. AMSWORD y 
TASWORD sf) par Io que podr6 uti- 
lizar los facilidades de 6stos para, 
par ejemplo, cambiar de hombre 
una variable todas las veces que 
aparezca. 
-- El programa se graba tal y co- 
ma aparece listado, es decir, no se 
emplea la codificaci6n interna de las 
palabras clave (TOKENS) sino que 
6stas son delanteras, siendo sencillo 
leer el programa mediante OPE- 
NINNYLINEIMPUT 9, comoha- 
ce este pro.qrama. 

-- Basic puede leer el prgrama en 
este formato, tanto LOAD coma 
con RUM. En realidad Io que hace 
al encontrar un fichero ASCII con es- 
tas 6rdenes lee lineas del fichero, los 
codifica y las introduce en memoria 
coma si se hubiese tecleado directa- 
mente; excepto si no Ilevan un n0me- 
ra al principio en cuyo caso apareo 
ceria el error DIRECT COMMAND 
FOUND. La salida del compresor es- 
t6 en formato ASCII, segOn Io que 
acabamos de explicar puede ser lei- 
da desde BASIC. 
-- No todo son ventajas; el defec- 

10. 20 
20- 410 
1000- 1220 

1230- 1270 

2000- 2190 
2200- 2560 
3000-33040 
4000- 4140 

5000- 5130 
9000- 9100 
10000-10080 
11000-11220 

12000-12040 
15000-15550 
20000-20040 
30000-30100 
31000-31050 
40000-40110 
40120 
40180 
40210 
40270 
40310 
41000 
50000-50090 
60000-60020 
61000-61040 

SUBRUTINAS 
PRINCIPALES 

Si estamos en un 464, cambiar o cinta. 
Presentaci6n e instrucciones. 
Iniciaci6n de tobias y variables. Definici6n de ventanas mediante Ilamadas a 9000 
con los par6metros adecuados. 
Pregunta el hombre del programa, y rechaza la codena vacia si se est6 operando 
con disco. 
Tronco principal del programa, que llama en coda vuelta alas rutinas que necesita. 
Programa terminado. Informes. 
Lineos REM. 
Lineas no REM. I:n la primera vuelta la rutina termina en la linea 4030 gracias al 
IF vuelta---1 THEN RETURN. 
Inicializaci6n para la segunda vuelta y pide el hombre del fichero de salida. 
Creaci6n y recuadrado de ventana, segOn los par6metros i, vl, v2. 
Induir n,',mero en tabla de saltos. 
Buscor los instrucciones con referencia a nOmeros de linea, Leer 6stos y mondarlos 
a 10000 en la primera vuelta y a SO000 en la segunda (ON vuelta GOSUB 10000, 
50000). 
Renovar ACTUAL si es necesario. 
Buscar nOmero en labia, si no est6 el m6s alto de los menores que 1 y devolver 
su indice en anterior. 
Leer el slguiente car6cter de la linea en curso. 
Leer siguiente I[nea del fichero de entrada. 
Comprobar sila linea en curso es una REM. 
Rutina de compresi6n de uno Ifneo. 
Subrutinos de 6sa: 
Quitar REM y' del final, si los hay. 
Entrecomillado. 
Catheter no alfanumrico. 
Car6cter alfonum6rico. 
Tratamiento de coda palabra encontrada. 
Quitar variables de control en los NEXT. 
Cambiar una referencia a nOmero de lineas par su ACTIVO, si est6 activado (dislinto 
de cero). 
Aqui se Ileva a efecto el cambio a cinta. 
Tratamiento de errores en el nombre de los ficheros. 
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to de grabar los programas coma 
texto es que tanto la grabaci6n co- 
ma la lectura se hace alga m6s len- 
tamente queen modo normal (par 
alga es el modo normal) y la ocupa- 
ci6n de memoria en disco o cinta es 
un poco mayor. 
La raz6n de que el compresor uti- 
lice este formato es la siguiente: el 
programa puede ser leido con las 
instrucciones normales de manejo de 
ficheros en disco o cinta, y la com- 
plejidad del programa es menor al 
no necesitar decodificar los TOKENS. 
Asi el progrma compresor resulta le- 
t6ible, es f6cil de depurar, y resulta 
cil que cada usuario pueda modio 
ficarlo a su gusto si Io desea. Ade- 
m6s, si tiene un AMSWORD II podr6 
usarlo para cambiar los nombres de 
las variables par otros m6s cortos o 
lguna manipulgci6n similar, ya que 
a salida de COMPRESOR est6 enfo- 
coda hacia el usa de estas facilida- 
des. 
Algunas veces puede parecerle 
que el progrma comprimido podria 
ser m6s peque6o. En realidad no es 
tan grande coma la memoria que 
ocupa en cinta o disco. Lo que ocuo 
rre es que el n0mero de linea se es- 
tribe con STRS, que incluye un espa- 
cio delante de 41. No me he preocu- 
pado de suprimirlo ya que AMS- 
WORD II trabaja mejor con texto de 
programa gracias a este espacio. 
Adem6s no se pretende que la sali- 
da de Compresor sea la versi6n de 
trabajo del programa. Lo m6s ade- 
cuado es una vez obtenida la versi6n 
comprimida, cargarla desde BASIC 
con LOAD y grabarla con SAVE pa- 
ra tener la versi6n en formato Basic. 
Par supuesto que las modificaciones 
mediante procesador de textos de- 
ben hacerse antes de esto. 

Comprimir un 
programa 

Sigamos con el modo de usar el 
programa en si. Una vez colocada 
la cinta o disco teclee el nombre del 
prgrama. En su monitor habr6n apa- 
recido tres recuadros, correspon- 
dientes a otras tantas ventanas. Par 
la segunda ir6 apareciendo el lista- 
do de su programa: asi puede veri- 
ficar qu6 Compresor est6 funcionan- 
do correctamente. En la primera, 
destinada a informes, aparece <zle- 
yendo linea... y los mensajes de ma- 
nejo del cassette. 
Una vez terminado el programa, 
se le pedir6 el nombre con el que 
cluiere grabar la versi6n comprimi- 



da. Una vez tecleada 6ste le pregun- 
tar6 <<Comprimir paso a paso (SIN). 
Pulse una de dichas teclas. 
-- Si usa cinta: 
En este memento deber6 rebobi- 
nar la cinta de la fuenle e introducir- 
la cada vez que el sistema le sugiere 
(press play). Tambi6n debe preparar 

otra cinta pare grabar la nueva ver- 
si6n e introducirla cuando el mensa- 
je sea (press rec and play). Cuidado 
con los errares: es frecuente qua la 
alternancia entre lectura y escritura 
no sea regular. 
-- Si usa disco: 
En case de user una solo unidad, 
deberd asegurarse de que el disco 
qua confiene su fichero fuente tiene 
espacio libra suficiente pare la ver- 
si6n comprimida (normalmente con 
que haya tanto espacio libra come 
K's ocupe su programa, sobrard). Si 
tiene dos unidades clisco (ienhora - 
buena/) puede poner delante del 
nombre de la versi6n comprimida B: 
y se grabar en la unidacl B, 
Ahora se repetir6 el proceso de la 
primera vuelta, con la diferencia de 
que ahora en la ventana inferior ir6 
apareciendo la versi6n camprimida 
segOn se vaya creando. La opci6n 
<Paso a paso>> est6 explicada ante- 
riormente y tambi6n dentro clel pro° 
pie programa. 
Una vez terminado el proceso se 
cierran los ficheros y el programa 
pregunta (LQuiere ver tabla de sal- 
tos?)). Respondiendo s)) obtendr6 
una lista de los referencias a nOme- 
ros de linea qua hayan side cambia- 
dasy el nOmero per el cual hen side 
cambiado 6stos. Puede necesitarlos 

para alguna modificaci6n posterior. 
Con esto concluye el compresor su 
trabajo. La versi6n comprimida ya 
est6 en cinta o clisco dispuesta para 
ser cargada. Probablemente haya 
ahorrado m6s de110 per 100 de me- 
maria respecto de la fuente. De to- 
dos modes le aconsejo que guarde 
una copia cle la fuente: si quiere m6s 
adelante ampliar y/o mejorar el pro- 
grama le ser ms sencillo hacerlo 
partiendo de esa versi6n. La versi6n 
comprimida p6sela a formate Basic 
y tendr6 la versi6n de trabajo ocu- 
panda el minima de memoria y con 
la mxima rapidez de carga. 

Aspecto de/aM#sis de e#e rnismo nmero 
despus de poser per el programa compresor. 

50 CLS:ORIGIN O,O:WINDOW#1,1,40,25, 
25:DEF FN y(x):x'31(x^2-4) 
100 INPUT#I"VALOR MINIMa DEL INTER 
VALO ",minimo:CLS#1:INPUT#1,"VALOR 
MAXIMa DEL INTERVALO "maximo:CLS#1 
:IF minim{-1& OR maximo>16 OR mini 
mo>maximo THEN GOTO 100 
160 FOR x I TO 639:PLOT x,2OO:mage 
n=x/20:IF margen=INT(margen)THEN DR 
AWR O4:DRAWR O-8:DRAWR 04 
200 NEXT:FOR y=i TO 399:PLOT 20,y: 
margen y/2A:IF margen=INT(margen)TH 
EN DRAWR 2,0:DRAWR-4O:DRAWR 2,0 
260 NEXT:ORIgIN 320200:FOR x-minim 
o 0 maimo SEP O.01:y=FN y(×):px 
×120:py yl20:IF py>199 OR py<-200 T 
HEN GOTO 340 
330 PLOT p×,py 
340 NEXT:CALL $BO&:GOTO 50 

I 
TABLA DE VARIABLES 
Salto Table que almacena las referencias a ngmeros de linea. 
Punts % Table de indite pare ordenar saltos, contiene el subindice del siguiente solto en 
arden creciente. 
Almaceno las modificaciones qua deben realizarse. Su contenido indite: 
- Si es cero, que no debe efectuorse ninggn cambio. 
- Si es negative, que el nOmero pare cambio se encuentra en el indite opuesto 
- Si es positive, la referencia al ngmero de Iineo debeser cambiada per dicho 
fl0mero. 
DimensiSn de las tobias enteriores. Se inicieliz o 300, pare puede set aumenfodo 
si el usuorio Io necesito. 
NOmero de le I[nee en curse (la qua se est leyendo). 
Indke del solto iguol o ;nmediatomente anterior o numlineo en Io table SALTOS. 
Confenido de le Ineo actual sin el n0mero e lineo ni los especios inidoles. 
Versi6n comprimide de I[neoS. 
[neo qua se est prepereno pore mender el nuevo fichero. 
Contiene los n0meros y redes los letres; se usa pore comproSer rpiamente si un 
corder es ol{onumrico men,ante 
N0mero qua se quiere 5uscer o incluir en o table 
Si vale uno, Io I[nea en curse es una EM. 
Si tom el valor care, la linee en curse no se eSe unir con le anterior. 
S tome el valor care, le I[neo en cure no se deSe unit con la sguienfe. 
Corder que se est8 leyendo en ]e linee en curse 
Contiene el corder que se acSe e leer e Io Ifnee en curse o CHS (]3) si se 
he terminedo le linee. 
C6digo ASCII de caratS, o CH$ (]3) si se ha enconfrado el final de Io Inee o 
el comlenzo e une zone e comenlario (EM o . 
Ultimo indite ufilizedo en fable de soltos. 
Indite e solto dirig;do  le 0[time EM qua est ele espere e ser combiodo, care 
en case contrario. 
Si es uno, le porte de Ifnea qua se est leyendo (orresponde a un.entrecomillado. 
Nombre de variable, polobre clave del Basic o n0mero qua se cease de leer en 
le I[neo en curse. 
Instrucdones qua admifen re[erend o n0meros de line el progromo THEN 
ELSE; GOTO GOSU8 ESUME y RESTOE. 
Pal Dimensi6n de dicha table. 

Active 

Numsal 

Numffnea 
Actual 
Linea$ 
Nuevalins$ 
Nueva$ 
Alfanum$ 

Nmero 
Remflag 
Unir 
Unirsig 
J 
Carats 

Car6cter 

FINTAB 
Transfer 

Camilla 
Palabra$ 

(l) Eemplo: 5i estamos tratando un GO'FO 
7000. ¢upongamos qua b enconframos en eL fndice I0 de esta forma. (uiere decir que no 
debe set cambiado. i Io enconframos as: 
Indice Safto Active 
10 7000 0 
I 0 7010 702O 
Quiere decir que debemos cambiar el GO'[O 
7000 par un O01"O 7020. / Io que encontrarnos 
I0 -7000 - 14 
14 7010 7020 

El manes significo qua no se debe cambiar 
direclamente per ese ndmero, sine qua debemos 
miter en el subindice 14 pare encontrar el 
ndmero per el qua se debe cambiar. Esto ocurre 
cuando hay rods de un salto qua deban ser 
cambiados al mismo n#mera; en el eiemplo, 
tanta las referencias a17000 come a17010 
deben set cambiadas a17020. (Es rare qua esto 
ocurra). 

(2) Es decir, eWnOmero de arden de d/cho 
I cardcter dentro de LINEA. 
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I REM julian albo garcia c/gral fra 
ned 55 , 3 monforte de lemos (lu 
go) 
10 ON ERROR GOTO 60000 
2O :DISC 
30 ON ERROR GOTO 61000 
40 MODE 2 
5(; v1=2:v2 24 
bO GOSUB 9000 
100 PRINT " ........................ 
........... COMPRESOR ............... 
II0 PRINT TAB ( 36); ........... 
120 PRINT TAB ( 35):"VERSION 1.1 
130 PRINT TAB ( 35); 
140 PRINT TAB ( 32):"Per aullan A| 
bo. 
150 PRINT " Instrucclones: 
160 PRINT " Este programa compr 
|me proqramas BASIC LOCOMOTIVE 
para dismlnuir 
170 PRINT "ocupacion de memoria, 
eliminando todos los comentarlo 
s y los espaclos": 
180 PRINT "innecesarios y uniendo 
las lineas sucesivas slempre que 
puede hacerlo sin"; 
190 PRINT "alterar la estructura de 
l programa. Este proceso se puede 
centrolar mediante" 
200 PRINT "la option paso a paso. 
210 PRINT " La fuPnte debera es 
tar grabada en formato ASCII: lave 
rsion comprimida 
220 PRINT "se grabara en el mismo f 
ormato. Si la fuente no contlene er 
rores la version"; 
23(; PRINT "comprimida funciona sin 
problemas. Depute el programa antes 
de comprimrlo. 
240 PRINT " E1 programa fun(ion 
a en dos vueltas: 
250 PRINT " La primera lee el p 
rograma fuente buscando |odDs 
numeros de linea" 
260 PRINT "destino de un salto, par 
a poder mantener la estructura 
programa. 
270 PRINT " I_a segunda vuelve a 
leer el programay lo va comprimie 
ndo lnea pot 11nea": 
280 PRINT "escribiendo el resultado 
2eO PRINF " St el prorame con| 
iene DE| E'[E debra aequrarse de 
e la primera linea"; 
30(; PRINT "que vaya a ser borrada n 
o se una a la anterior, y lo mismo 
lm pri mera que no"; 
310 PRINT "deba serlo: para elle us 
e la option paso a paso. 
320 PRINT " Pulse una tecla para 
on t i nuar 
330 WHILE INKEY$-"":WENO:CLS 
340 PRINT " La option paso a pa 
so, en la segunda vuelta, despues 
de leer la linea"; 
350 PRINT "espera la pulsation de u 
na tecla. Si es la TAB> imp|de que 
la linea se una a"; 
360 PRINT "la anterior: si es cualq 
uer otra, Io permite. 
370 PRINT " Si no la escoge, la 
compresion se llevara a cabo autom 
aticamente. 
380 PRINT " Pulse una tecla para c 
entnuar 
390 WHILE INKEY$="":WEND:CLS 
410 PRINT " Espera un momento." 
1000 pal--5:numsal=300 
1010 DIM gos$(pal),salto(numsal)mpu 
nt% (numal)activo(numsal) 
1020 DEF FN chars (indices|inS) MID 
$(lin$,indlce, 1) 
1030 FOR i-O TO pal:READ gos$():NE 
XT 
1040 DATA "THEN ","ELSE ","GOTO "," 
GOSUB ""RESTORE "°"RESUME 
105r salto(O) O:punt%(O)=numsal.fln 
tab-1 
1060 FOR  I TO numsal 
1070 salto(i)-1OOOOO:punt%(i) numsa 
1 

1080 NEXT i 
1090 alfanum$="abcdefghi]klmnopqrst 
110(; al÷anum$=alfanum$+UPPER$(alfan 
um$) +"0123456789" 
1110 cur$=CHR$(143)+CHR$(8)+" "+CHR 
$(8) 
1120 MODE 2 
1130 FOR i- 0 TO 2 
1140 READ vl,v2 
1150 GOSUB 9000 • De#|nit ventanas 
1160 NEXT 
1170 DATA 2,5 
i180 DATA 8, 13 
1190 DATA 16,24 
1200 LOCATE #,33,1:PRINT #3, "Info 
121(; LOCATE #330,7:PRINT #3 "Prog 
1220 LOCATE #3,30, 15:PRINT #3 "Pro 
grama compr imi do" 
1230 PRINT " Programa fuente " 
1240 INPUT prog$ 
125{) WHI|.E tape=O AND proq$="" 
1260 PRINT CHR$(7);" No es valdo" 
: INPUT " Prorar,, f(elfe ": oroo$ 
1270 WEND 
2000 REM ................... Bucle p 
tin(|pal ........................... 
2(110 FOR vuelta I TO  
2020 IF vuelta 2 THEN GOSUB 5000 
• Inicializaclon egunda vuelta 
2030 CLS:PRINT :PRINT " Vuelta " 
vuel ta 
2040 OF'ENIN prog$ 
2050 LOCATE I3:PRINT " Leyendo |in 
2060 WHILE NOT EOF 
2080 GOSUB 30000: PRINT #1,numlinea: 
USING "&"linea$ Lee linea 
2090 LOCATE 203:PRINT USING "##### 
2100 GOSUB 3100(; ' Comprobar si e 
2110 GOSUB 12000  Actualiar 
2120 gown | salto(actual) = numline 
a ) 
2130 IF pausa$="S" THEN aS "":WHILE 
a$ .... :a$=INKEY$:PRINT #2 cur$;:WE 
NO: IF aS CHR$(9) THEN unirsig=O 
2140 ON remflag+l GOSUB 4000  3000 
2150 WEND 
2160 CLOSE IN 
2170 NEXT vuelta 
2180 PRINT #9nueva$ 
2190 CLOSEOUT 
2200 PRINT CHR$(7); " Terminado" 
2210 PRINT " El programa "+prog$+ 
og$ 
2220 PRINT " guiere vet tabla de s 
altom ? "; 
2230 WHILE INSTR(" SN",UPPER$(a$))< 
2:a$-INKEY$:PRINT curS+aS;:WEND 
2240 MODE 2:IF UPPER$(a$)="N" THEN 
END 
225(; i-0:v1=2:v2=24 
2260 GOSUB 9000:CLS 
2270 indice=O 
2280 WHILE salto(indice)<100000 
2290 salto-act ivo (indite) 
2300 IF salto<>O THEN GOSUB 2500 
2310 indite=punt% (indite) 
2320 WEND 
2330 PRINT " Pulse una tecla" 
2340 WHILE INKEY$="":PRINT curS; :WE 
ND 
2350 MODE 2:END 
2500 PRINT salto(indice):" e cambi 
2510 |rid-indite 
2520 WHILE activo(ind)<O 
2530 nd= -actvo(ind) 
2540 WEND 
2550 PRINT activo(ind) 
2560 RETURN 
3000 REM ...................... line 
3010 IF gon=O THEN RETURN 
3020 IF transfer<>O THEN activo(tra 
030 transfer actual 

304(; RETURN 
4000 REM ................... lineas 
4010 IF transfr<>O THEN activo(tra 
nsfer)=numlinea:numero=numlinea:GOS 
UB 10000:transfer=O 
4(;20 unir-unirsig:unirslg-l:GOSUB 1 
1000 " Busca saltos y qestlonalos 
4030 IF vuelta-I THEN RETURN 
4040 GOSUB 40000 Comprimir la 
inea 
4050 IF goln<>O THEN unir=O 
4060 longitud= LEN (nueva$)+LEN (nu 
evalin$) 
4070 IF longitud > 245 THEN unir=r) 
4080 IF unlr=1 THEN nueva$ nueva$+" 
:"+nuevalln$:PRINT #2,USING 
+nuevalin$;:RETURN 
4090 REM ............ linea al fiche 
ro de salida .................. 
410 F'RINT #2 
4110 PRINT #9,nueva$ 
412(; nueva$-STR$(numlinea)+" "+nuev 
alin$:PRINT #2USING "&";nueva$; 
4130 unir=1 
4140 RETURN 
5000 REM .................. Iniciali 
at|on segunda vuelta ............... 
5010 INPUT " Nmbre para el iche 
ro de salida ";nuevprog$ 
5020 WHILE nuevpro$-"" AND tape=O 
5030 PRINT CHR$(7);" No es valido 
":INPUT " Nombre ":nuevprog$ 
5040 WEND 
5050 PRINT " Comprimlr paso a paso 
( s / n ) 9" 
5060 WHILE INSTR(" SN",pausa$)2:pa 
usa$=INKEY$ 
5070 PRINT cur$+pausa$::pausa$-UPPE 
R$(pausa$) 
5080 WEND:PRINT 
5090 unir-O:actual=O:unlrsig=O 
510(; IF tape-1 THEN PRINT " Cuando 
aparezca PRESS PLAY ... introduzc 
a la cinta fuente":PRINT :PRINT " 
Cuando sea PRESS REC AND PLAY ..o 
la de destlno." 
5110 OPENOUT nuevprog$:PRINT " 
se una tecla para comezar." 
5120 WHILE INKEY$="":PRINT cur$::WE 
ND:FOR i=O TO 2:CI_S #:NE×T 
5130 RETURN 
9000 "- ............................ 
Ventanas ........................... 
9010 F'EN #i,I:PAPER #i,0 
9020 WINDOW #i,279,v1,v2 
9030 81=163(26-vi)+3 
9040 2-16(25-v2)-3 
9050 MOVE 2,e2:DRAW 6x9,e? 
9060 DRAW 639,el:MOVE 63882 
9070 DRAW 638,e 
9080 DRAW 3eI:DRAW 382 
9¢19¢ MOVE 2,e2:DRAW 
9100 RETURN 
100r;0 REM ................ poner sal 
to en tabla .................... 
I001( ' El numero a incluir entra 
en numero 
I0020 GOS|IB 50D0 
)0030 IF salto ( slgulente  numer 
o THEN RETURN 
10040 salto ( intab )= numero 
1005(I punt% ( fintab )= siguiente 
10060 punt% ( anterior )= intab 
10070 fintab - ÷intab + I 
10080 RETURN 
II000 REM ............. Busca de sal 
tos .................. 
11010 FOR * = 0 TO pal 
11020 a% = 1 
1103(* il INSTR ( a%,linea$gos$ 
<i)) 
11040 WHILE ii<> 0 
11050 GOSUB 11100 
11060 a% ii + LEN ( gos$(1)):i 
I - INSTR ( a%,linea$,gos$(i 
11070 WEND 
11080 NEXT i 
11090 RETURN 
11100 REM leer los numeros de linea 
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11110 j=i1+ LEN (gos$(i))-2 
11120 SOSUB 20000:WHILE caracter<>A 
SC(":") AND caracter<13 
11130 WHILE caracter-32 OR caract 
er-44 
II 140 GOSUB 20000 
11150 WEND 
11160 jl-j-1: humS-" " 
11170 WHILE INSTR ("0123456789",c 
arac$) <> 0 
11180 humS=humS+caratS: GOSUB 20 
000 
11190 WEND 
11200 IF hums <> "" THEN numero= 
VAL(num$) :ON vuelta GOSUB I000050 
000 ELSE RETURN 
11210 WEND 
11220 RETURN 
12000 REM ............... Actualiza 
- numl inea 
12020 actual=punt%(actual) 
12030 WEND 
12040 RETURN 
15000 REM .................... busca 
r numero en saltos ................ 
15010 anterior = 0 : siguiente=punt 
%(anterior) 
15020 WHILE salto(siguente) < nume 
re 
15030 anterior=szguzente : siguient 
e= punt% ( anterior 
15040 WEND 
15050 RETURN 
20000 REM .................... siui 
enf caracr ....................... 
20020 IF >! EN (linea$ HLN carats 
=CHR$(13 ELSE carac$-FN chars 
Inea$ 
20030 caracter-ASC(carac$ 
20040 RETURN 
30000 REM ........................ 
Leer linea ......................... 
30010 LINE INPUT#9,1inea$ 
30020 j=O: c$-"0" 
30030 WHILE INSTR(" 0123456789" , c$) 
<>0 
301140 -j+l:c$=MID$(linea$] I) 
30050 WEND 
30060 numlinea=VAL (LEFT$(linea$.- 
I)) 
30070 linea$-RIGHT$(linea$LEN (fin 
ea$) -3+I ) 
30080 IF numlinea 0 THEN ERROR 21 
30090 IF numlinea>65535 THEN ERROR 
30100 RETURN 
31000 REM ..................... Com 
probar si es rem ................... 
31010 IF LEN(linea$)4 THEN linea$ 
i i nea$+SPACE$ (4) 
31020 IF LEFT$(linea$,l)="'" THEN r 
emlag-1 : RETURN 
31030 IF LEFT$(Iinea$3)<>"REM" THE 
N remlag-O: RETURN 
31040 IF INSTR(alanum$,MID$(linea$ 
,4111<>0 THEN remlag=O:ELSE reml 
ag- I 
31050 RETURN 

:ELSE nuevalin$ nuevalin$+CHR$(34 
40110 RETURN 
40120 REM ............ Ouitar rem, 
y : del inal ............... 
40130 IF RIHT$(nuevalin$3) "REM" 
THEN nuevalin$=LEFT$(nuevalin$,LEN 
(nuevalin$-3) 
40140 WHILE INSTR("" :"RIGHT$(nueva 
finS, I) )<>0 
40150 nueval i n$=LEFT$ (nueval inS, 
LEN(nuevalin$)-11 
40160 WEND 
40170 RETURN 
40180 REM entrecomillado 
40190 IF caracter 34 THEN comilla=O 
40200 RETURN 
40210 REM Caracter no alanumerico 
40220 IF LEN(palabra$)>O THEN GOSUB 
40310 ' Fin de palabra 
40230 IF caratS="'" THEN caracter 
3 
40240 IF caracter=32 THEN carac$ "" 
ELSE inpalabra-O 
40250 IF caracter 34 THEN comilla=l 
40260 RETURN 
40270 REM Caracter al÷anumerico 
40280 IF inpalabra.=1 THEN nuevalin 
$-nuevalin$+SPACE$(1) 
40290 palabra$=palabra$+carac$:Inp 
alabra=O 
40300 RETURN 
40310 • Final de palabra 
40320 IF palabra$="IF" THEN unirsig 
-0 
40330 IF palabra$="REM" THEN caract 
er 13 
40340 IF palabra$="NEXT" THEN GOSUB 
41000 
40350 inpalabra=l:palabra$-"" 
4036O RETURN 
41000 REM Quitar variables en l 
os next 
41010 numvar=1 
41020 WHILE INSTR(":"+CHR$(13),cara 
c$) =0 
41025 GOSUB 20000 
41030 IF carac$-"" THEN numvar-num 
var+l 
41040 WEND 
41050 FOR n=2 TO numvar 
41060 nuevalin$=nueval£n$+":NEXT" 
41070 NEXT n 
41080 finpalabra=O 
41090 RETURN 
50000 REM ........... cambiar salto- 
50010 GOSUB 15000 
50020 act-sigdente 
50030 IF numero<>salie(act) THEN RE 
TURN 
50040 IF active(act) 0 THEN RETURN 
50050 WHILE active(act) < 0 
50060 act= -active(act) 
50070 WEND 
50080 linea$=LEFT$(linea$jl)+STR$( 
activo(act)+RISHT$(linea$LEN(line 
a$-+I) 
50090 RETURN 
60000 " Cambiar a cinta 
60010 tape 1 
60020 RESUME NEXT 
61000 ...................... Errores 

40000 REM ..................... comp 61010 IF ERR-32 THEN PRINT " Nomb 
rzir la llnea ..................... re incorrecto o error de acceso a d 
__ isco.":IF ERL=2040 THEN RESUME 1230 

40010 comilla =O:al÷anum-O: palabra 
$="": finpal abra=O: unirsig=1 
40020 nuevalin$=" ": j-O 
40030 caracter=1 
40040 WHILE caracter<>13 " bucle p 
rincipal 
40050 GOSUB 20000 • Sigulente ca 
ratter 

40060 IF comilla-1 THEN GOSUB 40 
180 ELSE IF INSTR<alfanum$carac$)- 
0 THEN GOSUB 40210 ELSE GOSUB 40270 
40070 IF caracter 13 THEN carats 
40080 nueval in$=nueval in$+carac$ 
40090 WEND • Fin del bucle prlncipa 
1 
40100 IF comilla-O THEN GOSUB 40120 

ELSE IF ERI =5110 THEN RESUME 500 
61020 IF ERR=?5 1"HEN PRIN CHR$<ll) 
:" Fichero no vat,do." :CI. OSEIN:RE 
SUME 1230 
61030 ON FRROR GOTO 0 
61040 END  

ROTULOS 
GIRATORIOS 

I programa permi- 
te enviar a travs de la pantalla men- 
sajes que van de izquierda a dere- 
cha, como si se tratase de un r6tulo 
giratorio. 
Puede usarse en titulos, o en me- 
dio de un programa para enviar un 
mensaje cualquiera. 
Funcionamiento: es muy sencillo, 
consiste en treat una matriz, en la 
cual se van almacenando las partes 
del mensaje que va a aparecer en la 
pantalla, para luego imprimir suce- 
sivamente los diferentes elementos 
de la matriz, creando ilusi6n de mo- 
vimiento. 
Variables: 
aS= Mensaje que se quiere en- 
viar. 
bS= Matriz en la que se almace- 
nan las distintas partes del mensaje. 
Nota: el programa ha sido reali- 
zado en el modo 40 columnas (mo- 
do 1) pero es muy sencillo hacer que 
funcione en cualquiera de los otros 
dos modos, con tal de cambiar en las 
lineas 60,70,80,110 y 170 los 40)) 
que aparecen por 80) (modo 2) o 
20 (modo 0). 

Rafael Collantes 

10 REM RAFAEL COLLANTES 1986 
20 CLS:CLEAR " 
30 INK 0 s 13: INK 1,0:BORDER 13 
40 A$-"PHLSA UNA TECLA PARA CONTINU 
AR" 
50 CLS'.LOCATE 69:PRINT "TITULOS 
afael Collantes 1986)" 
60 DIM b$(LEN(a$)+40) 
70 FOR i I TO #O+LEN(a$) 
(, FOR j I TO 40-i 
90 b$(i)=b$(i)+" " 
I00 NEXT 

11r IF i<40 THEN k-O ELSE k-i-40 
120 b$(i)-b$<i)+MID$(a$,1+k,i) 
I0 FOR  I TO i-LEN(a$) 
140 b$<i>-b$<i)+" " 
50 NEXT 
160 NEXT 
170 FOR i = I TO 40 ÷ LEN(a$) 
180 LOCATE 1,9:PRINT b$(i) 
190 IF INKEY$<>"" THEN 220 
200 NEXT 
210 GOTO 170 
220 Ct.S:CLEAR 
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Con el objeto de fomentar las rela- 
clones entre los usuarios de AMSTRAD, 
MERCADO COMUN te ofrece sus p6gi- 
nas para publicar los pequeos anuncios 
que relacionados con el ordenador y su 
rnundo se ajusten al formato indicado a 
continuaci6n. 
En MERCADO COMUN tienen cabida, 
anuncios de ventas, compras, clubs de 
usuarios de AMSTRAD, programadores, 
y en general cualquier clase de anuncio 
que pueda servir de utilidad a nuestros 
lectores. 
Envianos tu anuncio mecanografiado 
a: HOBBY PRESS, S.A. 
AMSTRA0 SEMANAL. 
Apartado de correos 54.062 
28080 MADRID 
iABSTENERSE PIRATAS! 

Corta y pega este cup6n en la casilla 
correspondiente de la p6gina 16 del 
nOmero 31 de AMSTRAD Semanal, 
una vez completada la p6gina, 
envianosla junto con tus datos, iSUERTE! 
Urge vender ordenador Oric-1 
(48 K) con garantia. Se encuentra 
en perfecto estado. Regalo 
manual de uso en ingl6s yen 
castellano, cables de conexi6n TV 
y cassette, asi como alimentaci6n 
y jueg-os de diversos tipos. Todo 
ello por tan s61o 20.000 ptas. 
Interesados Ilamar al (93) 
239 15 22. Preguntar por Cristina 
a partir de los 3 de la tarde. 
Barcelona. 

Vendo CPC 464 con monitor en 
color, por 70.000 ptas. o tambiSn 
Io cambiaria por CPC 6128 
abonando 40.000 ptas. de 
diferencia, junto con el ordenador 
doy: garantia vigente, manuales 
del usuario, m6s los libros 40 
juegos sensacionales, curso 
autom6tico de Basic y 10 juegos, 
entre ellos: Exploiding Fist, Knight 
Lore y Everyone a Wally's. JosS. 
Valencia. Tel. (96) 363 60 86. 

Vendo videojuego Atari 
CX-2600 AS, comprado hace 5 
meses, con mando, 3 cartuchos, 
todo por 1.200 ptas. Tel. 
475 22 92 de Madrid. Preguntar 
por Joss de 10 a 14 h. 

Vendo Amstrad CPC 464, con 
monitor de color, con Sl incluido 8 
cintas comerciales y 2 manuales 
en castellano, se hallo en 
perfectas condiciones con 3 meses 
de uso; est6 en garantia y Io 
vendo por 75.000 ptas. 
Interesados Ilamar al tel. 
693 05 70 de Madrid, 
preguntando por Miguel o Ana. 

Vendo Amstrad 464 monitor en 
F. verde, con manuales en 
castellano, joystick y unos 25 
programas (Motchday, Decathlon, 
Bruce Lee...) comprado en 
octubre de 1985 en el Corte 
InglSs. Todo por 60.000 ptas. 
Javier Muoz Barrena. Avda. San 
Fco. Javier, s/n <Urbis>> bloque 6, 
piso 3. ° , puerto 2. a. Tel. (954) 
65 51 55. Sevilla 41005. 

Amstrad CPC 464. Monitor 
color. Nuevo. Regalo 14 
programas. Baseball, Raid, 
Exploding, Knight lore, Alien 8, 
Macht day, Procesador, etc. 
75000. Luis. Comidas. 273 64 27. 

eeeeeeeeeeeeeeeee 
Compraria Amstrad 464, o 
cambiaria amplificador de 100 
war. por cualquier ordenador. 
Interesados Ilamar al tel. 
25 29 11. de C6rdoba. Juan. 

MECA.SCRIB 

El Curso de Mecanografia para el AMSTRAD PCW 8256. 
iilMPORTANTE PARA ACADEMIAS!! 
• • Gestibn de alumnos. 
• Capacidad para 60 alumnos. 
en un solo diskette. 

Pedidos a: 

EDUCOMP, S.A. 
C/Molina de Arag6n, 1. 
Tel. (911) 22 32 12 
19003 GUADALAJARA 

FUNDAS PARA TU =AMSTRAD 
464-472-664 y 6'128 ....... 2.262 
8256 ................... 3.250 
Joystick Quickshott II ...... t.975 
Pogo reembolso, rods 250 ptas, de 
gastos de envio. 
Indicar modelo y monitor [verde o co- 
lor). 

Pedidos a: BAZAR POPULAR 
Apartado 27.040 
08080 BARCELONA 

PUBLICIDAD 
,,. / ,,, v / / / 
/ 
GABINETE DE INFORMATICA 
• Clases de Inform6tica 
sobre AMSTRAD 
En grupos e individuales. 
• Ordenadores AMSTRAD y 
perif6ricos 
Los meiores precio 
• Software: Est6ndar y a la medida 

ZURBANO, 4410 47 63 
28010 MADRID 

Cambiarla por Dun Darach o el 
One On One, cualquiera de estos 
mios: Hacker, Millonarie, Radid 
Over Moscow, Ghstbusters o 
Snooker. Escribir a Fernando Diez 
Flores. C/Santa Ana, 38, 3. ° izq. 
24003 Le6n. 

00000000000000000 

Quisiera establecer contacto con 
usuarios de Amstrad en JaSn para 
listados, programas etc. Preguntar 
por Ismael de 9 de la tarde hasta 
• los 10. Tel. 22 24 34 o bien 
escribiendo a: Avda. Madrid, 60 
a, 5. ° A. JaSn. 



lnform  tica 

el I#piz al que gusta deck 
mientras nuestros competidores dicen no 
UNICO PAI AMSTRAD, CON PRECISION PIXEL 

FUNCIONES 

ESP  OTROS 
S1 I NO 

$I 

NO 

TEXTO   
_.9 TAMANOS DE BROCHA SI ( ,r" 
VARIADOR DE MEZCLAS .t • 7 • 

r o 

18 TOBERAS MOSTRADORA[S SI NO 
4 MEZCLAS BASICAS SI NO  I 
,Sl NO " ., 
SOMBREADO DE MEZCLAS XOR SI I N " '" ' 
FICHERO ICONOS RESIDENTES I SI NO_._] [ ".'." 
FiCHERO RELLENOS RESIDENTES I S I No__I 
I Sl I NO I t   I 
It s,S' NO I SI I t " 1 [ ,, , --"'"'1 t :': 
SI NO I' -  --'''- -- = " 
st NO , I ;&' 1 .... It- ir- 
1 
i s 

! k "!   II:, ' ,l't. 
' 464CASSETT". ..................... 4,'rl 1 
', 464-664 DISCO ...................... 6.900 Ptas. 
¢' 6128 DISCO ............ 6.900 Ptas. 

-26 COLORES DE PAPEL 
PALETA DE 15 ONOS DE COLOR 
POSICIONAMIE TO DE PUNTO 
RAYOS DESDE UN PUNTO FIJO 
_DIBUJO REFLEJESPEJO) 
FUNCION HOME 
CONTROL DESDE TECLADO 
CONTROL CON JOYSTICK 
DISPONIBLES MODOS 1 Y 2 

DEBIDO A LA FALTA DEESPACIO NO PODEMOS LISTAR LAS OTRAS 
40 FUNCIONFS MAS OUE NUESTRO LAPIZ ES CAPAZ DE HACER. 

IVA no induido) 
t o NDICI o d',. ",. PE  , ES P,I',, DISTRIBUIDORES 

t E VENTA EN LOS M 
t E INFORMATICA 

o ' o MERCIOS 

Si Vd. tiene alguna dificultad para obtener el Ipiz 6ptic,, 
puede dirigirse a: 

Ofites 
Iformtica 

Avda. Isabel II, 16 -8  
Tels. 455544 - 455533 
Tlex 36698 
20011 SAN SEBASTIAN 

--UNICO-MENU DE PANTALLA 
--ARRASTRE O1LIETOS PANTALLA H 
TRASLADO OBJETOS PANTALLA 
--TRASLADO DE CURSOR ; SI / - 
CAJAS ELASTICAS 
LINEA ELASTICA S[ SI 1 
--TRIANGULO ELASTICO S[ I NO l 
DIAMANTE ELASTIJ--- I Sl NO I 
LASTICO I $I NO 
HEXAGONO ELASTICO I 
--OCTOGONO ELASTICO SI DO . ,,"1, 
'-cu-- I s No 
PIRAMIDE ELASTICA SI NO . " 
--CIRCUN-ERENCIAS SI I sI I I  
CIRCULOSRELLENOS SI' I NO [ 
RELLENAS SI ] NO ! 
-PSES RELLENAS I SI NO]  
"--CUAS I SI I NO I :-- ESTOS SON " 
SIORTES I Sl 
oISNO  zoo----  S _ ALGUNOS EJEMPLOS 
IMAGEN ESPEJOEINVERTIDA ------ DE LOS GRAFICOS QUE VD. 
FONDO DE REFERENCIA [ SI I NO [ 
REJILLA DE FO--ffffO NO[ g -- 
oY   o- PODRA REALIZAR CON NUESTR O 
--EADO CO   -- 
I Lvoo OCOOR -- .___, O__ e LAPIZ OPTICO 
__-- VOLCADO__PANTALLA RESIDENTE  __ 
DIBUJO DE BORDES EN 3S ENTE 0 """ 
-- ! SI SI • rO ,...:'.it 



L 

iM££Edecible 
Lsu largc durc  ci6n-z 

iMi  i    sionctn tes 
sus prestaciones. 

(P-50 • La pcquefia 40 cps. Papel normal con interface paralelo, serial y Spectrum .................................................. 17.990 ptas. 
GP-700 * La de color 50 cps. 7 colores. 80 columnas. Tracci6n y fricci6n. Pal)el de 10 pulgadas .................................. 64.990 ptas. 
SP-I.000 * La programable 100 cps.24 cps en alta calidad 96 cart. programables en RAM. Introductor hoja a hoja.i .............. 64.990 ptas. 
SP-1.000AS La programable 100 cps.24 cps en alta calidad con interface RS-232. Introductor hoja a hoja.i ......................... 59.900 ptas. 
MP-1.300AI La polivalente 300 cps, 60 cps en alta calidad, interface paralelo y RS-232. lntroductor hoja a hoja.*& ............... 119.900 ptas. 
BP-5.2I)0 * La de oficina 200 cps, 106 en aha calidad.Buffer 4K.Carro de 15".Tracci6n y fricci6n. ............................... 199.900 ptas. 
BP-5.420 * La mis nipida 420 cps. 106 cps en alta calidad. Buffer de 18K. Paralelo y RS-232. ................................... 339.900 ptas. 

Interfaces: Serie RS-232C, Spectrum, IBM, COMMODORE, MSX, QL, Apple Macintosh, HP-IB 
i Introductor automitico de documentos opcional. 
& Kit de color opcional. 
Nota. 7 I.V.A. 12%, no incluido en los precios arriba indicados 

Avda. Blasco Ib&fiez, 116 
Tel. (96) 372.88. 89 
Telex 62220 - 46022 VALENCIA 

Muntaner, 60-2.o-4. a 
Tel. (93) 323. 32.19 
08011 BARCELONA 

Agustin de Fox&, 25-3.°-A 
Tels. (91) 733. 57.00-733.56.50 
28036 MADRID 

* con interface paralelo 
o con interface Spectrum 



